leave_ok.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<!--#include file="../checkuser.asp" -->
<%
 m_ver = Trim(request("ver"))
 if m_ver="cn" then 
  tmpstr_t="[中文版]"
 elseif  m_ver="en"  then 
 tmpstr_t="[英文版]"
 else
 response.write "错误访问页面，请重试" 
 response.end    
 End If%> 
<!--#include file="../../Include/db_conn.asp" -->
<%
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
'由于表单被重复提交(标志为session("antry")为空)引起
else
iname=request.Form("name")
iqq=request.Form("qq")
iemail=request.Form("email")
ihomepage=request.form("homepage")
iselect=request.form("select")
iwhere=request.form("where")
iface=request.form("face")
ishow=request.form("show")
ititle=request.form("title")
icontent=Server.HTMLEncode(request.form("content"))
%>
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select * from ys_messageboard where (id is null)"
rs.open sqlstr,conn,1,3
rs.addnew
rs("show")=ishow
rs("face")=iface
rs("select")=iselect
rs("where")=iwhere
rs("name")=iname
rs("qq")=iqq
rs("email")=iemail
rs("homepage")=ihomepage
rs("title")=ititle
rs("content")=icontent
rs("time")=now()
rs("ip")=request.servervariables("remote_addr")
rs("version")=m_ver
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("antry")="" '提交成功，清空session("antry")，以防重复提交！！
end if
%>
<meta http-equiv="refresh" content="1; url=list_message.asp?ver=<%=m_ver%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言成功</title><p>&nbsp;</p>
<link href="../include/styles.css" rel="stylesheet" type="text/css">
<table width="62%" border="0" align="center">
  <tr>
    <td align="center"><p> <img src="images/loading.gif" width="94" height="27"><br>
        <br>
        <font size="2">留言成功，1秒钟后返回！</font></p>
      </td>
  </tr>
</table>
</body>
</html>