📄 sys_kind_add_go.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
		v_kindname=trim(Request.Form("t_kindname"))
		v_kindtip=trim(Request.Form("t_kindtip"))
		v_kindpic=trim(Request.Form("t_kindpic"))
		
		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 (conn.Execute("SELECT COUNT(*) FROM tblkind WHERE kd_name='"&stryin(v_kindname)&"'",0,1)(0))>0 THEN
			'检查是否存在重复的版面
			Response.Write "<br>出错：要增加的版面已经存在，请勿使用重复的版面名称！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		ELSE
			sqlstr="INSERT INTO tblkind(kd_name,kd_tip,kd_class,kd_pic,kd_topic) VALUES('"&stryin(v_kindname)&"','"&stryin(v_kindtip)&"',0,'"&stryin(v_kindpic)&"',0)"
			conn.Execute sqlstr
			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 + -