?? sys_kind_master_go.asp
字號:
<!--插入html頭部分以及數據庫接口-->
<!--#include file="in_conn.asp"-->
<body>
<!--插入網站置頂-->
<% if u_name="" then
Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<%
if u_power<2 OR u_name<>DEF_sysadm then
Response.Redirect "resp.asp?cmd=adm_bigpower"
end if
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首頁]</a>-<a href="sys.asp">后臺維護</a>-<font class="ft1">版面編輯管理</font>
</td>
</tr></table>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
<tr>
<td width="150" valign="top" class="rdk2">
<!--插入左部分-->
<!--#include file="in_sys_left.asp"-->
</td>
<td valign="top">
<%
dim vmaster1,vmaster2,vmaster3,vkdid
IF Request.Form("smaster1")<>"" THEN
vmaster1=CLng(Request.Form("smaster1"))
ELSE
vmaster1=null
END IF
IF Request.Form("smaster2")<>"" THEN
vmaster2=CLng(Request.Form("smaster2"))
ELSE
vmaster2=null
END IF
IF Request.Form("smaster3")<>"" THEN
vmaster3=CLng(Request.Form("smaster3"))
ELSE
vmaster3=null
END IF
vkdid=CLng(Request.Form("hidKID"))
IF (vmaster1=vmaster2 AND isNULL(vmaster1)=False) OR (vmaster1=vmaster3 AND isNULL(vmaster3)=False) OR (vmaster2=vmaster3 AND isNULL(vmaster2)=False) THEN
Response.Write "設置失敗：同一版面的三個版主不能相同！"
Response.Write "<br><a href='javascript:history.go(-1);'>[點擊這里<Font color=red>返回修改</Font>]</a>"
ELSE
sqlstr="SELECT * FROM tblkind WHERE kd_ID="&vkdid
rs.open sqlstr,conn,1,2
if rs.eof and rs.bof then
response.redirect("resp.asp")
end if
if isNULL(vmaster1) then
rs("masterID_1")=vmaster1
rs("master_1")=""
else
rs("masterID_1")=vmaster1
rs("master_1")=conn.Execute("SELECT name FROM tblmates WHERE ID="&vmaster1,0,1)(0)
end if
if isNULL(vmaster2) then
rs("masterID_2")=vmaster2
rs("master_2")=""
else
rs("masterID_2")=vmaster2
rs("master_2")=conn.Execute("SELECT name FROM tblmates WHERE ID="&vmaster2,0,1)(0)
end if
if isNULL(vmaster3) then
rs("masterID_3")=vmaster3
rs("master_3")=""
else
rs("masterID_3")=vmaster3
rs("master_3")=conn.Execute("SELECT name FROM tblmates WHERE ID="&vmaster3,0,1)(0)
end if
rs.update
rs.close
Response.Write "設置版主成功！"
Response.Write "<br><a href='sys_kind_master.asp'>[點擊這里刷新到：<b>設置版主</b>]</a>"
END IF
%>
</td>
</tr>
</table>
<!--插入在線統計-->
<!--#include file="in_online.asp"-->
<!--插入網站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -