📄 sys_kind_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
%>




<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 v_kindname,v_kindtip,v_kindpic
		dim v_kindclass,v_kindID
		v_kindname=trim(Request.Form("txt_name"))
		v_kindtip=trim(Request.Form("txt_tip"))
		v_kindpic=trim(Request.Form("txt_pic"))

		
		IF v_kindname="" OR v_kindtip="" THEN
			Response.Write "<br>出错：[版面名称]和[版面描述]为必填项！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSEIF Len(v_kindname)>10 OR Len(v_kindtip)>100 OR Len(v_kindpic)>80 THEN
			Response.Write "<br>出错：所填字符数超出限制！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSEIF Len(v_kindpic)>0 AND Len(v_kindpic)<5 THEN
			Response.Write "<br>出错：版面图标url格式不正确<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSEIF NOT isNumeric(Request.Form("txt_class")) THEN
			Response.Write "<br>出错：排序数不符合规范，必须是整数<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSE
				v_kindclass=CLng(Request.Form("txt_class"))
				'版面是否存在
				If isNumeric(Request.Form("hidKID")) Then
					v_kindID=CLng(Request.Form("hidKID"))
					'找出该版面的相关信息
					sqlstr="SELECT * FROM tblkind WHERE kd_ID="&v_kindID
					rs.open sqlstr,conn,1,3
						if rs.eof AND rs.bof then
							Response.Redirect "resp.asp?cmd=kindmiss"
						else
							rs("kd_name")=v_kindname
							rs("kd_tip")=v_kindtip
							rs("kd_pic")=v_kindpic
							rs("kd_class")=v_kindclass
							rs.UpDate
						end if
					rs.close
				Else
					Response.Redirect "resp.asp"
				End If
			Response.Write "修改版面成功！"
			Response.Write "<br><a href='sys_kind.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 + -