<% x_language=1 page=request.QueryString("page") if trim(page)="" then page=1 set cn=df_CN(GS_CONN) '读取系统设置 sql="SELECT * FROM [语言设置] where 编号="&x_language set rs=df_RS(cn,sql) if not rs.eof then x_AutoHtmlName= rs("手工命名") x_HtmlKeyWord= rs("关键字K") x_HtmlDescription= rs("关键字D") x_company=rs("公司名称") x_address=rs("公司地址") x_tel=rs("电话") x_fax=rs("传真") x_email=rs("邮箱") x_linkman=rs("联系人") end if df_Free(rs) '系统设置结束 if x_AutoHtmlName=True then x_HtmlNameUrl="|手工命名|_|编号|.htm" else x_HtmlNameUrl="_|编号|.htm" end if %> <%=keyword_cn%>_烟台超越机械设备有限公司 <% if request("send")="ok" then userid=trim(request.form(session("userid"))) if userid="" then response.write "" response.end else session("userid")="" '提交成功,清空session,以防重复提交! end if sql="select top 1 * from 留言建议 order by 留言日期 desc" set rs=df_RS(cn,sql) rs.Addnew rs("姓名")=userid rs("留言内容")=Request("comments") rs("邮箱")=Request("email") rs("审核")="0" rs("语言")=x_language rs("IP")=Request.serverVariables("REMOTE_ADDR") rs.Update df_Free(rs) 'response.write "" ''然后开始发送邮件 email="leader_ytcym@126.com" x_name=userid'姓名 x_email=Request("email") '邮箱 x_info=Request("comments") '内容 ctrl=chr(13) & chr(10) 'content="(本邮件来自网站在线订购):
"& ctrl &request.form("subject")& ":
"&request.form("info")&"" & ctrl title= ""&x_name&"的在线订购信息" ahtml="" ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&"
" ahtml=ahtml&" " ahtml=ahtml&" " ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&"" ahtml=ahtml&" " ahtml=ahtml&"
您好:

有一条来自网站的留言信息,请您查收

"&title&"

姓名:"&x_name&"

邮箱:"&x_email&"

详细内容:"&x_info&"
烟台国际经贸信息中心 服务热线: 0535-6286934
" ahtml=ahtml&"
" badyStr=title& "
"&"
" & ahtml & "
" & "
" response.write "Sending mail..." response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
" response.write "" else Randomize ' 随机数 num1=rnd() '取随机数 num1=int(26*num1)+65 '设置随机值 session("Userid")="userid"&chr(num1)'设置字段名 end if sql="select * from 留言建议 where 审核=1 and 语言="&x_language&" order by 留言日期 desc" set rsfeed=df_RS(cn,sql) rsfeed.PageSize=6 'link="page=" & page 'if rsfeed.eof and rsfeed.bof then 'response.write "
当前还没有留言!
" 'else s="" s=s&"" s=s&"" s=s&"" s=s&"" s=s&"" s=s&"" s=s&"" s=s&"" s=s&"" 's=s&"
 姓名:|姓名|  IP:|IP| 日期:|留言日期|
|留言内容|
回复:
|回复内容|
" s=s&"" x_htmllist=df_PageRS(rsfeed,page,s) if trim(x_htmllist)="" then x_htmllist="
欢迎留言!
" x_htmlPage=pf_ShowPages3(rsfeed,link,10) 'end if df_Free(rsfeed) df_Free(cn) %>
首页 >> 欢迎留言

欢迎留言
<%=x_htmllist%>
<%=x_htmlPage%>
 
姓名*: " class=field size=15 maxlength="10" value="<%=Session("estore_userid")%>">   IP:<%=Request.serverVariables("REMOTE_ADDR")%>  
邮箱*:
留言内容*:
  (留言在管理员审核后方能显示)