?? edit-del.asp
字號:
<%
option explicit
dim fid
dim useraction
dim dsn,sql,conn,rs
dim name,subject,email,id,mesBody
id=request("id")
fid=request("fid")
if cint(session("status"))<>cint(fid) or session("status")="" then
response.redirect "error.htm"
end if
useraction=request("action")
dsn="DBQ=" & Server.Mappath("../db/forum.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn=server.createObject("adodb.connection")
conn.open dsn
select case useraction
case "update"
id=request.form("id")
name=request.form("name")
subject=request.form("subject")
email=request.form("email")
mesBody=request.form("mesBody")
mesbody = Replace(mesbody, vbCrLf, "<br>")
sql = "update MesTbl SET mesBody='"&mesBody&"',subject='"&subject&"',name='"&name&"',email='"&email&"' where id="&id
'response.write sql'***debug
conn.execute(sql)
conn.close
set conn = nothing
response.redirect "admin-list.asp?fid=" & fid
case "del"
id=request.querystring("id")
sql = "delete from MesTbl where id="&id
conn.execute(sql)
conn.close
set conn = nothing
response.redirect "admin-list.asp?fid=" & fid
case "edit"
sql = "select * from MesTbl where id="&id
set rs = conn.execute(sql)
name=rs("name")
subject=rs("subject")
email=rs("email")
mesBody=rs("mesBody")
mesbody = Replace(mesbody, "<br>",vbCrLf)
conn.close
set conn = nothing
%>
<html>
<head>
<title>edit-del</title>
</head>
<body>
<table align="center" border=0 width=600>
<tr>
<td colspan=2>
<div align="center"><b><font color="#FF0000">修改論壇內容</font></b><br>
<br>
</div>
</tr></td>
<form action="edit-del.asp?action=update" method="post">
<input type=hidden name=id value=<%=id%>>
<input type=hidden name=fid value=<%=fid%>>
<tr><td>姓名:</td><td><input type="text" name="name" size=20 maxlength=20 value='<%= name %>'></tr></td>
<tr><td>主題:</td><td><input type="text" name="subject" size=20 maxlength=20 value='<%= subject %>'></tr></td>
<tr><td>電子信箱：</td><td><input type="text" name="email" size=20 maxlength=20 value='<%= email %>'></tr></td>
<tr><td>內容：</td><td><textarea cols=25 rows=8 name='mesBody' maxlength='20' size=23 wrap="virtual" ><%=mesBody%></textarea></tr></td>
<tr><td colspan=2 align="center"><input type="submit" value="update"></tr></td>
</table>
<%end select%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -