📄 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 + -