?? ph_mark_del.asp
字號:
<!--插入html頭部分以及數據庫接口-->
<!--#include file="in_conn.asp"-->
<%
'獲取傳值
dim vpid
vpid=Request.QueryString("plid")
if isNumeric(vpid) then
vpid=CLng(vpid)
else
Response.Redirect "resp.asp?cmd=ph_idmiss"
end if
%>
<body>
<!--插入網站置頂-->
<% if u_name="" then
Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="11" class="rdkuang"><tr>
<td width="100%" height="100%" align="center">
<%
'找出相應記錄
sqlstr="SELECT p_ID,p_author,p_belong,p_emo FROM tblphoto WHERE p_ID="&vpid
rs.open sqlstr,conn,1,3
if rs.eof AND rs.bof then
Response.Redirect "resp.asp"
end if
'獲取所相關照片的ID
ph_topic_ID=rs("p_belong")
'檢查資格身份
if rs("p_author")<>u_name AND u_power<2 then
Response.Write "<img src='img/jjerr.gif' border='0'> 很抱歉,您沒有刪除該條評論的權限!"
else
'修改相關照片的評論統計
set rs3=server.CreateObject("adodb.recordset")
sqlstr="SELECT p_emo,COUNT(p_ID) AS p_ren FROM tblphoto WHERE p_belong="&rs("p_belong")&" GROUP BY p_emo"
rs3.open sqlstr,conn,1,1
if rs3.eof AND rs3.bof then
rs3.close
Response.Redirect "resp.asp?cmd=ph_idmiss"
end if
dim phgood,phbad,phall
phgood=0
phbad=0
while not rs3.eof
if rs3("p_emo")=1 then
phgood=rs3("p_ren")
elseif rs3("p_emo")=2 then
phbad=rs3("p_ren")
end if
rs3.MoveNext
wend
if rs("p_emo")=1 then
phgood=phgood-1
elseif rs("p_emo")=2 then
phbad=phbad-1
end if
phall=CLng(phgood*100000+phbad+1)
phall=0-phall
rs3.close
sqlstr="UPDATE tblphoto SET p_belong="&phall&" WHERE p_ID="&rs("p_belong")
conn.Execute sqlstr
set rs3=Nothing
rs.delete
rs.update
Response.Write "<img src='img/jjgo.gif' border='0'> OK,刪除評論成功!"
end if
rs.close
%>
<br><a href='photoview.asp?id=<% =ph_topic_ID %>'>[點擊這里<font class="ft1">返回</font>]</a><br>
</td>
</tr></table>
<br>
<!--插入在線統計-->
<!--#include file="in_online.asp"-->
<!--插入網站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -