⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sys_class_deal.asp

📁 一个超级漂亮的班级主页asp代码
💻 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
%>


<script language="javascript">
function okpress(){
	document.fm1.cmdok.disabled=true;
	document.fm1.submit();
}
</script>

<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 trim(Request.Form("txt_valog"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_vapub"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl1"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl2"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl3"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl4"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl5"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl6"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSEIF trim(Request.Form("txt_cl7"))="" THEN
				Response.Write "<br>出错：填写不完整！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]"
			ELSE
				'更新数据
				sqlstr="UPDATE tblsys SET val_log="&CInt(Request.Form("txt_valog"))&",val_pub="&CInt(Request.Form("txt_vapub"))&",cl_1='"&trim(Request.Form("txt_cl1"))&"',cl_2='"&trim(Request.Form("txt_cl2"))&"',cl_3='"&trim(Request.Form("txt_cl3"))&"',cl_4='"&trim(Request.Form("txt_cl4"))&"',cl_5='"&trim(Request.Form("txt_cl5"))&"',cl_6='"&trim(Request.Form("txt_cl6"))&"',cl_7='"&trim(Request.Form("txt_cl7"))&"'"
				conn.Execute sqlstr
				Response.Write "<br>更改成功！<a href='sys_class.asp'>[点击这里<Font color=red>刷新</Font>]"
			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 + -