Log In | Register留言管理部分代码 留言本制作过程（3）
003if request.QueryString("action")="admin" then
if session("admin_name")<>"" then
IF Request("absh")="del" Then
sql="delete * from book where id="&Request("id")&""
Conn.execute(sql)
Response.Redirect "index.asp?admin=1"
End IF
IF Request("absh")="absh" Then
sql="update book set bsh=1 where id="&Request("id")&""
Conn.execute(sql)
Response.Redirect "index.asp?admin=1"
End IF
if Request("bhfly")="add" then
set rs=server.createobject("adodb.recordset")
sql="select * from book where id="&Request("id")&""
rs.open sql,conn,1,2
rs("bcontent") =Request("bcontent")
rs("bhcontent") =Request("bhcontent")
rs.update '更新数据表记录
rs.close
set rs=nothing
Response.Redirect "index.asp?admin=1"
End IF
if Request("bhf")="edit" then
set rs=server.createobject("adodb.recordset")
sql="select * from book where id="&Request("id")&""
rs.open sql,conn,1,1
Response.Write vbCrlf
Response.Write "<html>" & vbCrlf
Response.Write "<head>" & vbCrlf
Response.Write "<TITLE>GOODTEXT.ORG留言本</TITLE>" & vbCrlf
Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">" & vbCrlf
Response.Write "<META http-equiv=Content-Language content=gb2312>" & vbCrlf
Response.Write "<STYLE type=text/css>" & vbCrlf
Response.Write "BODY TABLE TD {FONT-SIZE: 9pt; COLOR: #842b00; LINE-HEIGHT: 16pt; FONT-FAMILY:
""Tahoma"", ""宋体""; TEXT-DECORATION: none}" & vbCrlf
Response.Write "A {FONT-SIZE: 9pt; COLOR: #842b00; LINE-HEIGHT: 16pt; FONT-FAMILY: ""Tahoma"",
""宋体""; TEXT-DECORATION: none}" & vbCrlf
Response.Write "A:hover {FONT-SIZE: 9pt; COLOR: #0188d2; LINE-HEIGHT: 16pt; FONT-FAMILY:
""Tahoma"", ""宋体""; TEXT-DECORATION: underline}" & vbCrlf
Response.Write "H1 {FONT-SIZE: 9pt; FONT-FAMILY: ""Tahoma"", ""宋体""}" & vbCrlf
Response.Write "span {color: #ff0000}" & vbCrlf
Response.Write "</STYLE>" & vbCrlf
%>
<script LANGUAGE="JavaScript">
function check()
{
显示留言部分代码 GOODTEXT.ORG留言本制作过程（2） (2008-3-30 20:57:14)
数据库结构设计与链接 GOODTEXT.ORG留言本制作过程（1） (2008-3-27 18:58:58)
验证密码强度的JS（2） (2008-3-26 22:10:0)
验证密码强度的JS（1） (2008-3-26 21:51:11)
ＣＳＳ样式控制网页背景（背景颜色和颜色图片） (2008-3-22 12:44:4)
CSS相对、绝对定位与树状目录实例 (2008-3-16 10:7:22)
CSS布局解决列高度不相同的问题（自适应高度） (2008-3-16 9:56:4)
HTML页面用ＣＳＳ布局#DIV＋ＣＳＳ(DIV＋ＣＳＳ) (2008-3-16 9:16:19)
asp中用图片中文数字验证码的方法 (2008-3-9 9:37:41)
asp分页做成一个函数 可重复调用 (2008-3-9 9:15:50)