📄 sys_web_deal.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!--获取协议内容字数限制-->
<!--#include file="in_talksize.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
%>

<%
'获取表单值
dim vweb,vurl,vclass,vxy
dim vph_sz,vtk_sz,vmsgmax

vweb=trim(Request.Form("txtweb"))
vurl=trim(Request.Form("txturl"))
vclass=trim(Request.Form("txtclass"))
vxy=trim(Request.Form("txtxy"))

vph_sz=Request.Form("txtphsize")
vtk_sz=Request.Form("txttksize")
vmsgmax=Request.Form("txtmsgmax")
%>


<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td width="100%" height="100%">
		&nbsp;<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">
		<%
		IF vweb="" OR vurl="" OR vclass="" OR vxy="" OR Len(vweb)>20 OR Len(vurl)>30 OR Len(vclass)>25 OR Len(vxy)>DEF_talksize*1024 THEN
			Response.Write "<br>出错：填写不完整或者相应字符数超出限制！"
			Response.Write "<br><a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSEIF isNumeric(vph_sz)=False OR isNumeric(vtk_sz)=False OR isNumeric(vmsgmax)=False THEN
			Response.Write "<br>出错：相应的大小或数量限制必须为数字！"
			Response.Write "<br><a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSE
			vph_sz=Int(vph_sz)
			vtk_sz=Int(vtk_sz)
			vmsgmax=Int(vmsgmax)
			vmbcheck=Request.Form("rad_mbchk")
				if vph_sz<1 OR vtk_sz<1 OR vmsgmax<1 then
					Response.Write "<br>出错：相应的大小或数量限制必须为大于0的数字！"
					Response.Write "<br><a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
				else
					sqlstr="UPDATE tblsys SET webname='"&stryin(vweb)&"',weburl='"&stryin(vurl)&"',classname='"&stryin(vclass)&"',xy='"&stryin(vxy)&"',ph_size="&vph_sz&",talk_size="&vtk_sz&",msgmax="&vmsgmax&",mb_check="&vmbcheck&" WHERE sysadm='"&DEF_sysadm&"'"
					conn.Execute sqlstr
					Response.Write "<br>恭喜：已经成功修改了班级基本信息！"
					Response.Write "<br>要查看新效果请<a href='index.asp'>[点击这里<Font color=red>刷新到首页</Font>]</a>"
				end if
		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 + -