⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 replybook.asp

📁 一个很好的ASp.net论坛程序
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="config.asp" -->
<!-- #include file="function.asp" -->
<%
 if session("admin")="" then
 response.redirect "index.asp"
 end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<title><%= bodytitle %></title>
<script language="javascript">
<!--
 function replychk(){
 if (document.myform.neirong.value==""){
 alert("老大,要回复留言,你总得写点内容吧!!");
 return false
}
return true
}
//-->
</script>
</head>
<body topmargin="5" leftmargin="0" bgcolor="<% =bodycolor %>">
<div align="center">
<br>
<!-- #include file="include/top.asp" -->
<table border="0" cellspacing="1" cellpadding="0" width="<%=tablewidth%>" bgcolor="<%= tablebg %>">
<tr>
<td width="98%" height="20" valign="bottom" background="background/td1.gif">
<table border="0" width="100%" cellspacing="0" cellspadding="0"><tr><td width="87%">
&nbsp&nbsp<img src="pic/arrow.gif" border="0"></img>&nbsp当前位置:
<a href="http://www.21pcnet.com" target="_blank">世纪电脑网</a> → <a href="index.asp">查看留言</a> → <a href="replybook.asp">回复留言</a>
</td>
<td width="13%">
[ 管理留言]</td></tr></table>
</td></tr></table>
<table border="0" bgcolor="<%=tablebg%>" width="<%=tablewidth%>" cellspacing="1" cellspadding="0">
<%
 dim id
 if request("id")<>"" then
 id=request("id")
 session("id")=id
 else
 id=session("id")
 end if
 sqlstr="select * from book where id="& id
 set rs=db.execute(sqlstr)
%>
<tr bgcolor="<%=tdbg2%>">
<td width="25%" align="center"><%=rs("user")%></td><td width="75%">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr><td width="80%">
&nbsp<img src="pic/now.gif" border="0" align="absmiddle"></img>
<B>标题:</b>&nbsp<%=rs("title")%></td>
<td width="20%"><font color="aa4545"><%=rs("addtime")%></font>
</td></tr></table>
</td></tr>
<tr bgcolor="<%=tdbg%>" align=right>
<td width="25%" align="center" height="120" valign="bottom">
<img src="face/<%=rs("face")%>" border="0"></img><br><br>
来自:<font color="aa4545"><%=rs("dichi")%></font></td>
<td width="75%" valign="top">
<table border="0" cellspacing="0" cellpadding="4" height="100" width="100%">
<tr><td height="95" valign="top">
<%=rs("content")%>
</td></tr>

<tr><Td height="20">
<table style="border-top:#a1a1a1 1px solid" width="99%" cellspacing="0" cellpadding="2">
<tr><td width="35%">
电话:<font color="aa4545">
<%
 response.write rs("phone")
%>
</font>
</td><td width="45%">
E—Mail:<font color="aa4545">
<%
 if rs("email")="" then
 response.write "没有填E-Mail"
 else
 response.write rs("email")
 end if
%>
</font>
</td><td width="8%">
<a href="delete.asp?id=<%=rs("id")%>&fanhui=book" onclick="javascript:return confirm('该操作将永久删除本条留言')">删除</a>
</td><td width="8%">
<%
 response.write "回复"
%>
</td>
</tr></table>
</td></tr>
</table>
</td></tr></table>
<%
 db.close
%>
<table border="0" bgcolor="<%=tablebg%>" width="<%=tablewidth%>" cellspacing="1" cellpadding="15">
<Tr bgcolor="dedede">
<td width="25%"> </td>
<form action="replysavebook.asp?" method="post" name="myform" onsubmit="javascript:return replychk();">
<td height="120" align="">
回复留言:
<textarea name="neirong" cols="85" rows="6" wrap="soft"> </textarea>
</td></tr></table>
<table style="border:#484848 1px solid;" width="<%=tablewidth%>" cellspacing="0" cellpadding="2" background="background/tdbg.gif">
<tr>
<td height="23" valign="middle" align="center">
<input type="hidden" name="id" value="<%=id%>">
<input type="submit" name="b1" value=" 确 定 提 交 ">
</td></form></tr>
</table>
<br>
<!-- #include file="include/bottom.asp" -->
</div>
</body>
</html>

⌨️ 快捷键说明

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