?? commentdel.asp
字號:
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!--#include file="CHAR.asp" -->
<%
id=request.QueryString("id")
If id="" or IsNumeric(id)=False then
response.Redirect("error.asp")
end if
strsql="select CommentUser from comment where CommentID="&id
set rs=conn.execute(strsql)
if rs("CommentUser")=session("username") or session("usergroup")=3 then
strsql="delete from comment where CommentID="&id
conn.execute(strsql)
else
response.Redirect("error.asp")
end if
rs.close
set rs=nothing
CloseDatabase
response.redirect("photoview.asp?id="&request("pid"))
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -