📄 index.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户留言</title>
<link rel="stylesheet" href="conn.css" type="text/css">
<script language="JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
status=msgStr;
document.MM_returnValue = true;
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("data/zy_gbook.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.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 bgcolor="#f5f5f5" onLoad="MM_preloadImages('image/oicq.gif')">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width="770" id="AutoNumber2" align="center">
<tr>
<td width="201" valign="top" bgcolor="f5f5f5">
<% if request.querystring("action")=""or request.querystring("action")="view"then
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4" bordercolor="#363636" height="473">
<tr>
<td width="244" height="473" valign="top" style="font-size: 12"><br>
<form name="message" method="post" action=index.asp?action=new>
<table width="100%" height="180" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="4"></td>
<td width="34" class="cm"><div align="right">主题:</div></td>
<td width="162"> <input name="tit" type="text" id="tit" size="15">
</td>
</tr>
<tr>
<td width="4"> </td>
<td class="cm" width="34"><div align="right">姓名:</div></td>
<td width="162"> <input name="name" type="text" id="name2" size="15" >
</td>
</tr>
<tr>
<td width="4"> </td>
<td class="cm" width="34"><div align="right">来自:</div></td>
<td width="162"> <input name="from" type="text" id="from" size="15" >
</td>
</tr>
<tr>
<td width="4" height="17"> </td>
<td class="cm" width="34"><div align="right">性别:</div></td>
<td class="cm" width="162"> <input type="radio" value="0" name="R1">
先生
<input type="radio" name="R1" value="1">
女士 </td>
</tr>
<tr>
<td width="4"> </td>
<td class="cm" width="34"><div align="right">QQ:</div></td>
<td width="162"> <div align="left">
<input name="tel" type="text" id="tel" size="22" >
</div></td>
</tr>
<tr>
<td width="4"> </td>
<td class="cm" width="34"><div align="right">电邮:</div></td>
<td width="162"> <div align="left">
<input name="mail" type="text" id="mail" size="22" >
</div></td>
</tr>
<tr>
<td> </td>
<td class="cm"><div align="right">电话:</div></td>
<td><input name="mobile" type="text" id="mobile" size="22" ></td>
</tr>
<tr>
<td height="26"> </td>
<td class="cm"><div align="right">内容:</div></td>
<td width="162" rowspan="3"> <textarea name="com" cols="23" rows="5" wrap="VIRTUAL" class="cm"></textarea>
</td>
</tr>
<tr>
<td height="17"> </td>
<td class="cm"> </td>
</tr>
<tr>
<td width="4" height="18"> </td>
<td width="34" height="18" class="cm"></td>
</tr>
</table>
<div align="center"> <br>
<input type="submit" name="Submit" value="确定">
<a href="javascript:document.message.reset()">
<input type="reset" name="Submit2" value="取消">
</a> </div>
</form>
</td>
</tr>
</table>
<%end if%>
</td>
<td width="1"></td>
<td width="577" align="center" valign="top" bgcolor="#FFFFFF">
<!--管理员登陆表单-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
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=index.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,conn,1,3
if rs.eof then
%>
<div align="center"><span class="cm">对不起，你的用户名或密码有错!<a href=index.asp?action=admin>重试一下</a></span><br>
<a href=index.asp class="cm">返回</a>
<%
else
session("admin")="admin"
response.redirect"index.asp"
end if
end if
%>
<%else%>
<!--回复留言表单-->
<%
if request.querystring("action")="reply"then
if session("admin")="admin"then
thisid=request.querystring("id")
conn.close
else
response.redirect"index.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=index.asp?action=addreply&id=<%=thisid%>>
<div align="center">
<textarea rows="6" name="reply" cols="40" ></textarea>
<br>
</div>
<center>
<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -