📄 public_root_edit.asp

📁 ASP网页
💻 ASP
字号:
<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
if Session("userqx")="1" or Session("userqx")="9" then
else
	Response.Redirect "../warn.asp"
end if

htmltitle=Request.QueryString("title")
tablename=Request.QueryString("tablename")
classcode=Request.QueryString("classcode")
pageno=Request.QueryString("pageno")

if classcode="" then classcode="0"

htmlname="public_root_edit.asp?title="+htmltitle+"&tablename="+tablename+"&classcode="+classcode+"&pageno="+pageno
backhtml="public_root.asp?title="+htmltitle+"&tablename="+tablename+"&pageno="+pageno

%>
<!-- #include file="../dsn.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000; font-family: 宋体}
td {font-size: 12px; color: #000; font-family: 宋体;line-height:130%}

.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 
.t3 {font:12px 宋体;color:336699} 
.t4 {font:12px 宋体;color:ff0000} 
.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 
.bt3 {font:14px 宋体;color:336699} 
.bt4 {font:bold 16px 宋体;color:maroon} 

.td1 {font-size:12px;line-height:24px;text-align:right;background-color:#ffdfbf;color:#000000}
.td2 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}
.td3 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}

A:link {color: #000077}
A:visited {color: #000077}
A:hover {color: #ff0000}

A.title1:link {text-decoration:none;color:#000000;}
A.title1:visited {text-decoration:none;color:#000000;}
A.title1:active {text-decoration:none;color:#ff0000;}
A.title1:hover {font-size:13px;text-decoration:none;color:#ff0000;}
-->
</style>
</head>

<body bgcolor=#ffffff topmargin=10>
<form action="<%=htmlname%>" method=post name=form1 onsubmit="return checkform()">
<%
bz=1
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD")="POST" then
	bz=0
	classname=Request.Form("classname")
	sortnum=Request.Form("sortnum")
	
	if bz=0 then
		if classcode="0" then
			sqltext="select top 1 classcode from "+tablename+" where parentcode='0' order by classcode desc"
			rs.Open sqltext,cn,1,1
			if rs.EOF then
				classcode="101"
			else
				classcode=rs(0)+1
			end if
			rs.Close
			if sortnum="" or not isnumeric(sortnum) then
				sqltext="select top 1 sortnum from "+tablename+" where parentcode='0' order by sortnum desc"
				rs.Open sqltext,cn,1,1
				if rs.EOF then
					sortnum=1
				else
					sortnum=rs(0)+1
				end if
				rs.Close
			end if
			rs.Open tablename,cn,3,3
			rs.AddNew
			rs("classcode")=classcode
			rs("parentcode")="0"
		else	
			rs.Open "select * from "+tablename+" where classcode='"+classcode+"'",cn,3,3
		end if	
		rs("sortnum")=sortnum
		rs("classname")=classname
		rs.Update()
		Response.Write("<script language=Javascript>")
		Response.Write("window.location.href='"+backhtml+"'")
		Response.Write("</script>")
	end if
else
	if classcode="0" then
		flag="1"
	else
		sqltext="select * from "+tablename+" where classcode='"+classcode+"'"
		rs.Open sqltext,cn,1,1
		classname=trim(rs("classname"))
		sortnum=rs("sortnum")
	end if
end if	
if bz=1 or bz=2 or bz=3 then
 %>
 <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
	<td>&nbsp;<b><%=htmltitle%></b>&nbsp;←&nbsp;<a href="<%=backhtml%>">返回列表</a>
	</td></tr>
 </table>
 
 <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center">
	<tr bgcolor=efefef><td colspan=2><font class=t1><%=htmltitle%></font><br>
	</td></tr>
	<tr><td class=td1 width=90>序号</td>
		<td class=td2><INPUT type="text" value="<%=sortnum%>" name=sortnum maxlength=10 size=10>
		<font class=td3>根据此序号由小到大排序</font>
		</td></tr>
	<tr><td class=td1>大类名称</td>
		<td class=td2><INPUT type="text" value="<%=classname%>" name=classname maxlength=30 size=50><font color=red>*</font>
	</td></tr>
	<tr><td colspan=2 align=center>
		&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="submit" value="确认提交" onclick="checkinput(form1)">&nbsp;&nbsp;&nbsp;&nbsp;
		</td></tr>
</table>	
	<script language=Javascript>
		form1.classname.focus()
	</script>
<%
end if
%>
</form>
<body>
</html>
<script language=Javascript>
	var flag=true;
	function checkform()
	{
		return flag;
	}
	
	var flag=true;
	function checkform()
	{
		return flag;
	}
	
	function checkinput(form)
	{
		if(form("classname").value=="")
			{alert("请输入标题!");form("classname").focus();flag=false;return}else{flag=true}	
		
		if (flag==true) {flag=checkchar(form("classname").value)} 
	}
		
	
	function checkchar(str)
	{
		str=str.toLowerCase()
		if (str.search("<"+"%")>0)  
		{
			window.alert("("+str+")中有非法字符,请检查!")
			return false;
		}
		if (str.search("<scrip"+"t")>0)
		{
			window.alert("("+str+")中有非法字符,请检查!")
			return false;
		}
		return true;
	}

	function qx()
	{
	window.close()
	}
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -