📄 contact_us.asp
字号:
<!-- #include file="top.asp"-->
<script language="VBscript">
<!--
Sub checkdata()
If Trim(adam.tit.value)=empty Then
Window.Alert"主题不能为空！"
Exit Sub
End If
If Trim(adam.name.value)=empty Then
Window.Alert"姓名不能为空！"
Exit Sub
End If
If Trim(adam.from.value)=empty Then
Window.Alert"联系地址不能为空！"
Exit Sub
End If
If Not IsNumeric(adam.tel.value) Then
Window.Alert"QQ号码只能是数字！"
Exit Sub
End If
If Trim(adam.mail.value)=empty Then
Window.Alert"电子邮件不能为空！"
Exit Sub
End If
If Trim(adam.mail.value)<>"" Then
IsEmail = True
sEmail = Trim(adam.mail.value)
If instr(1,sEmail,"@")<=1 Or instr(1,sEmail,".")<1 then
IsEmail = False
Elseif instr(1,sEmail,".") = instr(1,sEmail,"@")+1 Then
IsEmail = False
ElseIf Mid(sEmail,(InStr(1,sEmail,".")+1)) = "" Then
IsEmail = False
End if
If Not IsEmail Then
Window.Alert"电子邮件的格式不对！"
Exit Sub
Else
CheckEmail = sEmail
End If
End If
If Len(Trim(adam.mobile.value))<11 Then
Window.Alert"联系电话必须填写区号！"
Exit Sub
End If
If Not IsNumeric(adam.mobile.value) Then
Window.Alert"联系电话只能是数字！"
Exit Sub
End If
If Trim(adam.com.value)=empty Then
Window.Alert"发表内容不能为空！"
Exit Sub
End If
adam.submit
End Sub
-->
</script>
<%
dim conn1
dim connstr
on error resume next
connstr="DBQ="+server.mappath("gbook/data/zy_gbook.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr
Function Deal(exp1)
dim exp2
exp2=Replace(exp1,"<","<")
exp2=Replace(exp2,">",">")
exp2=Replace(exp2,"'","''")
exp2=Replace(exp2,Chr(13),"<br>")
Deal=exp2
End Function
%>
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="200" rowspan="2" valign="top" bgcolor="#000000">
<table width="100%" height="754" border="0" cellpadding="0" cellspacing="0" id="AutoNumber4" style="border-collapse: collapse">
<tr>
<td height="754" valign="top" style="font-size: 12">
<p><img src="gbook/image/left.gif" width="43" height="28"></p>
<form method="post" action=contact_us.asp?action=new name="adam" id="adam">
<table width="100%" border="0" cellpadding="0" cellspacing="2">
<tr>
<td class="cm"> <div align="center"><font color="#FF9900">主题:
<input name="tit" type="text" id="tit2" size="16" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</font></div></td>
</tr>
<tr>
<td class="cm"> <div align="center"><font color="#FF9900">姓名:
<input name="name" type="text" id="name2" size="16" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</font></div></td>
</tr>
<tr>
<td class="cm"> <div align="center"><font color="#FF9900">来自:
<input name="from" type="text" id="from2" size="16" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</font></div></td>
</tr>
<tr>
<td height="17" class="cm"> <div align="center"><font color="#FF9900">性别:
<input name="R1" type="radio" value="0" checked>
先生
<input type="radio" name="R1" value="1">
女士 </font></div></td>
</tr>
<tr>
<td class="cm"> <div align="center"><font color="#FF9900"> Q
Q:
<input name="tel" type="text" id="tel" size="16" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</font></div></td>
</tr>
<tr>
<td class="cm"> <div align="center"><font color="#FF9900">电邮:
<input name="mail" type="text" id="mail" size="16" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</font></div></td>
</tr>
<tr>
<td class="cm"><div align="center"><font color="#FF9900">电话:
<input name="mobile" type="text" id="mobile" size="16" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</font></div></td>
</tr>
<tr>
<td>
<div align="center"><font color="#FF9900">意见或建议:</font></div></td>
</tr>
<tr>
<td height="61" valign="top" class="cm"> <div align="center">
<textarea name="com" cols="25" rows="5" wrap="VIRTUAL" class="cm" style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent"></textarea>
</div></td>
</tr>
</table>
<div align="center"> <br>
<input type="button" onclick=checkdata() name="Submit1" value=" 确 定 " style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
<input type="reset" name="Submit2" value=" 取 消 " style="font-size: 9pt; border: 1px solid #ff9900; color: #ff9900; background-color: transparent">
</div>
</form></td>
</tr>
</table>
<% if request.querystring("action")=""or request.querystring("action")="view"then
%>
<%end if%>
</td>
<td height="107" valign="top" bgcolor="#FF9900">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" id="AutoNumber2">
<tr>
<td align="center" valign="top"><div align="left"> </div>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#f7f7f7">
<tr>
<td bgcolor="#FF9900">
<%
if request.querystring("action")="admin"then
%>
<br> <br> <br> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="200" id="AutoNumber1" align="center">
<tr>
<td bgcolor="f5f5f5" height="18"> <p align="center" class="cm"><font color="#000000"><b>管理登<font face="Arial">陆</font></b></font></td>
</tr>
<tr>
<td> <form method="post" action=contact_us.asp?action=adminlogin>
<p align="center"><font face="Arial"><br>
<span class="cm">用户:</span></font><span class="cm">
<input type="text" name="user" size="15" style="font-size: 12; border-style: solid; border-width: 1; padding: 0; background-color: #ffffff">
<font face="Arial"><br>
密码<span class="cm">:</span></font>
<input type="password" name="password" size="15" style="font-size: 12; border-style: solid; border-width: 1; padding: 0; background-color: #ffffff">
</span> <font face="Arial"><br>
<br>
</font>
<input type="submit" name="Submit3" value="确定">
<input type="reset" name="Submit6" value="取消">
</form></td>
</tr>
</table>
<br> <br> <br>
<%else%>
<!--管理员登陆验证-->
<%
if request.querystring("action")="adminlogin"then
username=request.form("user")
password=request.form("password")
if instr(password,"'")>0 then
response.write("密码输入错误！")
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From admin where name='"&username&"'and password='"&password&"'"
rs.Open sql,conn1,1,3
if rs.eof then
%>
<div align="center"><span class="cm">对不起，你的用户名或密码有错!<a href=contact_us.asp?action=admin>重试一下</a></span><br>
<a href=contact_us.asp class="cm">返回</a>
<%
else
session("admin")="admin"
response.redirect"contact_us.asp"
end if
end if
%>
<%else%>
<!--回复留言表单-->
<%
if request.querystring("action")="reply"then
if session("admin")="admin"then
thisid=request.querystring("id")
conn1.close
else
response.redirect"contact_us.asp?action=admin"
end if
%>
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#666666" width="96%" id="AutoNumber1">
<tr>
<td height="18" class="cm" >管理员填写回复内容:</td>
</tr>
<tr>
<td> <form method="post" name="reply" action=contact_us.asp?action=addreply&id=<%=thisid%>>
<div align="center">
<textarea rows="6" name="reply" cols="40" ></textarea>
<br>
</div>
<center>
<br>
<input type="submit" name="Submit4" value="回信息">
<input type="reset" name="Submit5" value="不写了">
</center>
</form>
<br> </td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -