📄 guestok.asp

📁 网上商城～～手机类型的网站源码Asp
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!--#include file="webconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/top.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr valign="top"> 
    <td width="1" bgcolor="#cccccc"></td>
    <td width="220" height="100"><!-- #include file="include/left.asp" --></td>
    <td width="1" bgcolor="cccccc"></td>
    <td align="center">
<!--#include file="include/search.asp" -->     
      <table width="98%" border="0" cellspacing="0" cellpadding="3">
        <tr> 
          <td align="center"><b><font color="#006699">客户留言系统</font></b></td>
        </tr>
        <tr> 
          <td align="right"><b><img src="../images/guestbook11.gif" width="20" height="16" align="absmiddle"> 
            <a href="guestbook.asp" class="lefttitle">我要留言</a>　　　<img src="../images/Arrow.gif" width="12" height="12" align="absmiddle"> 
            <a href="guestbooklist.asp" class="lefttitle">查看留言</a></b></td>
        </tr>
        <tr> 
          <td align="center">
<%
title=trim(Request.form("title"))
guestname=trim(Request.form("guestname"))
tel=trim(Request.form("tel"))
fax=trim(Request.form("fax"))
email=trim(Request.form("email"))
url=trim(Request.form("url"))
qq=trim(Request.form("qq"))
address=trim(Request.form("address"))
hideyn=trim(Request.form("hideyn"))
content=trim(Request.form("content"))

sql="select * from Net008_guestbook"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2

rs.addnew
rs("title")=title
rs("guestname")=guestname
rs("tel")=tel
rs("fax")=fax
rs("email")=email
rs("url")=url
rs("qq")=qq
rs("address")=address
rs("hideyn")=hideyn
rs("content")=content

userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If userip="" Then 
	userip=Request.ServerVariables("REMOTE_ADDR") 
end if
rs("ipaddress")=userip

rs("yn")="n"
rs("adddate")=now()

rs.update
rs.close
set rs=nothing

Response.Write "留言成功!你的留言内容经我们审核并回复后才会显示出来的!<br></br>"

%>
		  </td>
        </tr>
      </table>
      
    </td>
    <td width="1" bgcolor="cccccc"></td>
  </tr>
</table>
<!-- #include file="include/bottom.asp" -->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -