|
|
<%
dim conn
dim connstr
db="goodtextbook.mdb"
connstr = "DBQ=" + server.mappath(db) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.connECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "数据库连接出错！"
Response.End
end if
end if
if Request("lo")="lo" then
name="newh2o" '管理员密码
if Request("name")=name and Request("pss")=name then
session("admin_name")=name
Response.Redirect "guestbook.asp?admin=1"
else
response.write ""
Response.End
end if
end if
if Request("long")="long" then %>
<%
end if
if Request("action")="quit" then
session("admin_name")=""
Response.Redirect "guestbook.asp"
end if
if 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 "guestbook.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 "guestbook.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 "guestbook.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 "" & vbCrlf
%>
" & vbCrlf
Response.Write "" & vbCrlf
Response.Write "" & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "" & vbCrlf
Response.Write " | | " & vbCrlf
Response.Write " |
