savemsg.asp

来自「网站的后台管理代码......内容比较全面....新手比较适合」· ASP 代码 · 共 42 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<% set rs=server.CreateObject("adodb.recordset") %>
<%
if session("admin_name")="" then 
response.end
end if%>
<%
  strMsg=replace(trim(Request.form("txtMsg")),"'","''")
  strUser=replace(trim(Request.Form("txtName")),"'","''")
  strMail=replace(trim(Request.Form("txtEmail")),"'","''")
  strDW=replace(trim(Request.Form("txtDw")),"'","''")
  strTel=replace(trim(Request.Form("txtTel")),"'","''")
  strAdrr=replace(trim(Request.Form("txtAdrr")),"'","''")
  strOICQ=replace(trim(Request.Form("txtOICQ")),"'","''")
  strMsg=replace(strMsg,VBcrlf,"<br>")
  strshow=replace(trim(Request.Form("g_show")),"'","''")
  if strshow="1" then
  g_show=true
  else
  g_show=false
  end if
  
	'添加信息
	strsql="Insert Into guestbook(g_Name,g_dw, g_email, g_addr,g_ip,g_msg,g_tel,g_oicq,g_show) values("
	strSQL=strSQL & "'" & strUser & "',"
	strsql=strsql &	 "'" & strDW & "', "
	strsql=strsql &	 "'" & strMail & "', "
	strsql=strsql &	 "'" & strAdrr & "', "
	strsql=strsql &	 "'" & request.ServerVariables("Remote_addr") & "', "
	strsql=strsql &	 "'" & strMsg & "', "
	strsql=strsql &	 "'" & strTel & "', "
	strsql=strsql &	 "'" & strOICQ & "',"
	strsql=strsql &	 "" & g_show & ")"
	
	conn.execute strsql,0,1
	
	'如果不显示留言
	response.Write("<script language='javascript'>alert('留言成功，谢谢您的支持！　');window.parent.location.reload();window.close();</script>")
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">