% iPathStr="http://eservice.allion.com/allion/Chinese/" sKey="ヲハ@ィホ@ョ・ iSpamCheckCode=Server.UrlEncode(sKey) sCode=trim(request("spamcheck")) if sCode<>"" then bNotSpam=AspUrlDecode(sCode)=sKey end if if trim(request.querystring("iAction"))="1" and bNotSpam then Application.Lock Set rs = Server.CreateObject("ADODB.Recordset") sql= "select top 1 * from feedback" rs.open sql,conn,3,3 rs.addnew rs("Name")=trim(request("name")) rs("Sex")=trim(request("Sex")) rs("Company")=trim(request("Company")) rs("Title")=trim(request("Title")) rs("Phone")=trim(request("Phone")) rs("Ext")=trim(request("Ext")) rs("Fax")=trim(request("Fax")) rs("Email")=trim(request("Email")) rs("Postal_Address")=trim(request("Postal_Address")) rs("Country")=trim(request("Country")) rs("Services")=trim(request("Services")) rs("Logo_Program")=trim(request("Logo_Program")) rs("Other")=trim(request("Other")) rs("Comment")=trim(request("Comment")) rs("DataLocation")="Taiwan" rs("Create_Time")=now() rs.update rs.close set rs =nothing conn.Close() Application.Unlock '============================== mail ============================== iData="" iData=iData&"
| Name。@ | " iData=iData&""&trim(request("name"))&"。@ | " iData=iData&"|
| Gender。@ | " iData=iData&""&trim(request("Sex"))&"。@ | " iData=iData&"|
| Company Name。@ | " iData=iData&""&trim(request("Company"))&"。@ | " iData=iData&"|
| Title。@ | " iData=iData&""&trim(request("Title"))&"。@ | " iData=iData&"|
| Contact Phone。@ | " iData=iData&""&trim(request("Phone"))&"。@ | " iData=iData&"|
| Ext. 。@ | " iData=iData&""&trim(request("Ext"))&"。@ | " iData=iData&"|
| Contact Fax。@ | " iData=iData&""&trim(request("Fax"))&"。@ | " iData=iData&"|
| E-mail Address。@ | " iData=iData&""&trim(request("Email"))&"。@ | " iData=iData&"|
| Postal Address。@ | " iData=iData&""&trim(request("Postal_Address"))&"。@ | " iData=iData&"|
| Country。@ | " iData=iData&""&trim(request("Country"))&"。@ | " iData=iData&"|
| Services。@ | " iData=iData&""&trim(request("Services"))&"。@ | " iData=iData&"|
| Logo Program。@ | " if trim(request("Other"))<>"" then iData=iData&""&trim(request("Logo_Program"))&" ("&trim(request("Other"))&")。@ | " else iData=iData&""&trim(request("Logo_Program"))&"。@ | " end if iData=iData&"
| Comment。@ | " if trim(request("Comment"))<>"" then iData=iData&""&Replace(request("Comment"), chr(13)&chr(10), " ")&"。@ | "
else
iData=iData&""&trim(request("Comment"))&"。@ | " end if iData=iData&"
![]() |
|||
![]()
|
|||
|
|||
|
|||