?? talk_move_go.asp
字號:
<!--插入html頭部分以及數據庫接口-->
<!--#include file="in_conn.asp"-->
<%
'獲取傳值
dim vtid
vtid=Request.Form("hidID")
if isNumeric(vtid) then
vtid=CLng(vtid)
else
Response.Redirect "resp.asp?cmd=talk_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">
<%
'目標版面是否存在
vkind=Request.Form("s_kdmove")
dim kind_name
IF isNumeric(vkind) THEN
vkind=CLng(vkind)
'找出并更新該版面的相關信息
sqlstr="SELECT kd_name FROM tblkind WHERE kd_ID="&vkind
rs.open sqlstr,conn,1,1
if rs.eof AND rs.bof then
Response.Redirect "resp.asp?cmd=kindmiss"
else
kind_name=rs("kd_name")
end if
rs.close
ELSE
Response.Redirect "resp.asp?cmd=kindmiss"
END IF
'找出相應記錄
dim strdeltip
sqlstr="SELECT t_author,t_isreply,t_topic,t_kind FROM tbltalk WHERE t_ID="&vtid
rs.open sqlstr,conn,0,1
IF rs.eof AND rs.bof THEN
Response.Redirect "resp.asp?cmd=talk_idmiss"
END IF
'檢查資格身份
IF u_power<2 THEN
Response.Write "<img src='img/jjerr.gif' border='0'> 很抱歉，你不是管理員，您沒有轉移主題的權限！"
rs.close
ELSEIF rs("t_isreply")=true THEN
Response.Write "<img src='img/jjerr.gif' border='0'> 出錯：只允許轉移整個主題，不允許單獨轉移回復！"
rs.close
ELSE
voldkind=rs("t_kind")
rs.close
sqlstr="UPDATE tbltalk SET t_kind="&vkind&" WHERE t_belong="&vtid&" OR t_ID="&vtid
conn.Execute sqlstr
'更新兩個版面的信息
sqlstr="SELECT * FROM tblkind WHERE kd_ID="&vkind&" OR kd_ID="&voldkind
rs.open sqlstr,conn,1,3
if rs.eof AND rs.bof then
Response.Redirect "resp.asp?cmd=kindmiss"
else
FOR i=1 TO rs.RecordCount
kd_now=rs("kd_ID")
rs("kd_topic")=conn.Execute("SELECT COUNT(*) FROM tbltalk WHERE t_isreply=0 AND t_kind="&kd_now,0,1)(0)
rs("kd_upd")=conn.Execute("SELECT MAX(t_datepub) FROM tbltalk WHERE t_kind="&kd_now,0,1)(0)
rs.UpDate
rs.MoveNext
NEXT
end if
rs.close
strdeltip="轉移主題成功！"
%>
<table align="center" width="400" height="50" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="100%" height="100%">
<% =strdeltip %>
<br><a href='talklist.asp?kind=<% =vkind %>'>點擊這里刷新到目標版面：<font class="ft1"><% =unhtml(kind_name) %></font></a>
</td>
</tr></table>
<%
END IF
%>
</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 + -