<% if request.Form("method")="msg" then dim mysql,rsmsg mysql="Select * from PE_GuestBook" Set rsmsg=server.CreateObject("Adodb.recordset") rsmsg.Open mysql,conn,1,3 rsmsg.Addnew ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If ip="" then ip=Request.ServerVariables("REMOTE_ADDR") end if rsmsg("GuestIP") = ip rsmsg("GuestName") = trim(request.Form("GuestName")) rsmsg("GuestTitle") = trim(request.Form("GuestTitle")) rsmsg("GuestComp") = trim(request.Form("GuestComp")) rsmsg("GuestEmail") = trim(request.Form("GuestEmail")) rsmsg("GuestTel") = trim(request.Form("GuestTel")) rsmsg("GuestContent") = trim(request.Form("GuestContent")) rsmsg("KindID") = "7" rsmsg("GuestDatetime") = now() rsmsg.Update rsmsg.close : set rsmsg=nothing response.Write("") response.End() end if %> <% Dim rs,sql,ip set rs=server.CreateObject("adodb.recordset") sql="select * from PE_Config" rs.open sql,conn,1,1 do while not rs.eof %> <%=rs("SiteName")%> | <%=rs("SiteTitle")%> | 在线留言 " /> " /> " /> <% rs.movenext loop rs.close %>
需要什么服务或有什么疑问,请给我们留言,我们第一时间答复您!
留言标题 *
联 系 人 *
公司名称
E_mail
联系电话 *
留言内容 *
   
网站首页    |    关于我们    网站建设    |    客户案例    |    在线留言    |    联系我们