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

📄 sys_web.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">
		<%
		dim vanc
		sqlstr="SELECT * FROM tblsys WHERE sysadm='"&DEF_sysadm&"'"
		rs.open sqlstr,conn,0,1
		dim chk1,chk0
		if rs("mb_check")=-1 then
			chk1="checked"
			chk0=""
		else
			chk1=""
			chk0="checked"
		end if
		%>
			<form name="fm1" action="sys_web_deal.asp" method="post">
				&nbsp;<b>班级全名:</b>&nbsp;&nbsp;&nbsp;<font class="ft1">**</font>字数限制为25个字符以内!
				<br>&nbsp;<input type="text" name="txtclass" value="<% =stryin2(rs("classname")) %>" maxlength="25" size="60" class="fill">
				<br><br>&nbsp;<b>班级网址:</b>&nbsp;&nbsp;&nbsp;<font class="ft1">**</font>字数限制为30个字符以内!
				<br>&nbsp;<input type="text" name="txturl" value="<% =stryin2(rs("weburl")) %>" maxlength="30" size="60" class="fill">
				<br><br>&nbsp;<b>站点标题:</b>&nbsp;&nbsp;&nbsp;<font class="ft1">**</font>字数限制为20个字符以内!
				<br>&nbsp;<input type="text" name="txtweb" value="<% =stryin2(rs("webname")) %>" maxlength="20" size="60" class="fill">
				<br><br>&nbsp;<b>成员协议:</b>
				<br>&nbsp;<textarea name="txtxy" cols="55" rows="6" class="fill"><% =rs("xy") %></textarea>
				<br><br>&nbsp;<b>成员申请是否需要审核:</b>
				是<input type="radio" name="rad_mbchk" value="-1" <% =chk1 %>>&nbsp;&nbsp;&nbsp;否<input type="radio" name="rad_mbchk" value="0" <% =chk0 %>>
				<br><br>&nbsp;<b>上传图片大小限制:</b>
				<br>&nbsp;<input type="text" name="txtphsize" value="<% =rs("ph_size") %>" maxlength="4" size="4" class="fill" onKeypress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue=false;">&nbsp;KB
				<br><br>&nbsp;<b>讨论区发表内容文字数限制:</b>
				<br>&nbsp;<input type="text" name="txttksize" value="<% =rs("talk_size") %>" maxlength="4" size="4" class="fill" onKeypress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue=false;">&nbsp;KB
				<br><br>&nbsp;<b>成员站内消息箱容量:</b>
				<br>&nbsp;<input type="text" name="txtmsgmax" value="<% =rs("msgmax") %>" maxlength="3" size="4" class="fill" onKeypress="if (event.keyCode < 48 || event.keyCode > 57) event.returnValue=false;">&nbsp;条

				<br><br>&nbsp;<input type="button" name="cmdok" value=" 确定修改 " onClick="javascript:okpress();" class="an">
			</form>
		<%
		rs.close
		%>
		</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 + -