📄 rep.asp
字号:
<% @LANGUAGE = VBScript %>
<!--#include file="inc/conn.asp"-->
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(""&db&"")
exec="select * from gb where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<html><style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
.style1 {
font-size: 24px;
font-weight: bold;
color: #000066;
}
.style2 {color: #CC6600}
body {
background-image: url(images/bg_001.gif);
}
input
{
background-color: #ffffff;
border-bottom: #666666 1px solid;
border-left: #666666 1px solid;
border-right: #666666 1px solid;
border-top: #666666 1px solid;
color: #666666;
height: 18px;
border-color: #666666 #666666 #666666 #666666; font-size: 9pt
}
-->
</style><title>管理员回复</title><body>
<%If Session("adminchk")="True" Then%>
<table width="300" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><p align="center" class="style1">管理员回复界面</p>
<p align="center" class="style2">〈-同时可以编辑留言-〉</p></td>
</tr>
</table>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td><form name="form1" method="post" action="repok.asp">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="80"> 用户昵称:</td>
<td><input name="name" type="text" id="name3" value="<%=rs("name")%>"></td>
</tr>
<tr>
<td> 用户OICQ:</td>
<td><input name="qq" type="text" id="qq2" value="<%=rs("qq")%>"></td>
</tr>
<tr>
<td> 电子邮箱:</td>
<td><input name="email" type="text" id="email2" value="<%=rs("email")%>"></td>
</tr>
<tr>
<td> 个人主页:</td>
<td><input name="homepage" type="text" id="homepage2" value="<%=rs("homepage")%>"></td>
</tr>
<tr>
<td> 留言主题:</td>
<td><input name="title" type="text" id="title4" value="<%=rs("title")%>"></td>
</tr>
<tr>
<td> 留言内容:</td>
<td><textarea name="content" cols="40" rows="5" id="textarea2"><%=rs("content")%></textarea></td>
</tr>
<tr>
<td> 版主回复:</td>
<td><textarea name="repcontent" cols="40" rows="5" id="textarea3"><%=rs("repcontent")%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="hidden" name="id" value="<%=request.querystring("id")%>">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%end if%>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -