%
dim ID,action
emailtitle=Request.QueryString ("email")
ID=Request.QueryString ("ID")
Seminar_Typeid=Request.QueryString ("Seminar_Typeid")
action=trim(Request.QueryString("action"))
url=trim(Request.QueryString("url"))
page_from=trim(Request.form("page_from"))
if isnumeric(Seminar_Typeid)=0 or Seminar_Typeid="" then
Seminar_Typeid=69
end if
select case action
case "domail"
if IsValidEmail(emailtitle)=false then
call message("郵件地址檢測失敗!")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from wbsp_Mail_Contact where qizuflag=1 and Contact_Email='"&emailtitle&"'"
rs.open sql,conn,1,1
if not rs.eof then
Do_Company_Name=rs("Company_Name")
Do_Contact_Name = Rs("Contact_Name")
Do_Job_Title = Rs("Job_Title")
Do_Department=Rs("Department")
Do_Contact_Phone=Rs("Contact_Phone")
Do_Contact_Mobile=Rs("Contact_Mobile")
Do_Contact_Email=Rs("Contact_Email")
Do_Contact_Province=rs("Contact_Province")
Do_Contact_City=rs("Contact_City")
Do_Contact_Address=rs("Contact_Address")
end if
case "regform"
Company_Name=left(Trim(request.form("Company_Name")),200)
Contact_Name=left(Trim(request.form("Contact_Name")),30)
Job_Title= left(Trim(request.form("Job_Title")),45)
Department=left(Trim(request.form("Department")),45)
Contact_Phone=left(Trim(request.form("Contact_Phone")),45)
Contact_Mobile=left(Trim(request.form("Contact_Mobile")),45)
Contact_Email=left(Trim(request.form("Contact_Email")),80)
Contact_Address=left(Trim(request.form("Contact_Address")),255)
Seminar_Typeid= Trim(request.form("Seminar_Typeid"))
name2= Trim(request.form("name2"))
phone2= Trim(request.form("phone2"))
email2= Trim(request.form("email2"))
name3= Trim(request.form("name3"))
phone3= Trim(request.form("phone3"))
email3= Trim(request.form("email3"))
Seminar_Other="同事2:"&name2&"-電話2:"&phone2&"-email2:"&email2&"同事3:"&name3&"-電話3:"&phone3&"-email3:"&email3&""
if Contact_Email="" or strLength(Contact_Email)>60 then
call message("郵件地址不能為空,或字符長度不能大于60!")
response.end
end if
if IsValidEmail(Contact_Email)=false then
call message("請正式填寫您的郵件地址!")
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from wbsp_Mail_Contact where QizuFlag=1 and Contact_Email='"&Contact_Email&"'"
rs.open sql,conn,1,3
rs.addnew
rs("Contact_Email")=Contact_Email
if Company_Name<>"" then
rs("Company_Name")=Company_Name
end if
if Contact_Name<>"" then
rs("Contact_Name")=Contact_Name
end if
if Job_Title<>"" then
rs("Job_Title")=Job_Title
end if
if Department<>"" then
rs("Department")=Department
end if
if Contact_Phone<>"" then
rs("Contact_Phone")=Contact_Phone
end if
if Contact_Mobile<>"" then
rs("Contact_Mobile")=Contact_Mobile
end if
if Contact_Address<>"" then
rs("Contact_Address")=Contact_Address
end if
rs("Seminar_Typeid")=Seminar_Typeid
rs("Seminar_Other")=Seminar_Other
rs("Update_time")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
'BatchSendMail
Response.Write ""
Response.end
end select
%>
Copyright © 2007-2013 Retey Media Inc. All Rights Reserved. 版權所有
粵ICP備11063816號
微波射頻網 - 專注
微波、射頻、天線、無線通信、EMC、太赫茲等電磁波技術的門戶網站 共同推動中國微波射頻產業發展
主站蜘蛛池模板:
习水县|
柳河县|
武邑县|
海原县|
北宁市|
和顺县|
彰化县|
二连浩特市|
资阳市|
庆城县|
河北区|
泗洪县|
洛南县|
四川省|
西华县|
石楼县|
子长县|
望谟县|
沂南县|
临朐县|
化隆|
平舆县|
庄河市|
尉氏县|
纳雍县|
手机|
蕉岭县|
成安县|
景德镇市|
安溪县|
墨竹工卡县|
雷山县|
巴楚县|
库伦旗|
扬中市|
林甸县|
房山区|
永清县|
清原|
体育|
天水市|