📄 instance_edit.asp

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

flag=Request.QueryString("flag")
pageno=Request.QueryString("pageno")
orderby=Request.QueryString("orderby")


htmlname="partner_edit.asp?keyno="+keyno+"&flag="+flag+"&pageno="+pageno+"&orderby="+orderby
backhtml="partner_admin.asp?flag="+flag+"&pageno="+pageno+"&orderby="+orderby
tablename="partner"
%>
<!-- #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: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;}
.t1 {font:12px 宋体;color=000000} 
.t2 {font:12px 宋体;color:ffffff} 

.bt1 {font:14px 宋体;color=000000} 
.bt2 {font:14px 宋体;color:ffffff} 

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

A.r1:link {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:visited {font-size:12px;text-decoration:underline;color:#000000;}
A.r1:hover {font-size:12px;text-decoration:underline;color:#ff6600;}

A.r2:link {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:visited {font-size:12px;text-decoration:underline;color:#ffffff;}
A.r2:hover {font-size:12px;text-decoration:underline;color:#ff6600;}
-->
</style>
</head>

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

if Request.ServerVariables("REQUEST_METHOD")="POST" then
	keyno=Request.QueryString("keyno")
	bz=0
	sortnum=Request.Form("sortnum")
	title=trim(Request.Form("title"))
	phone=trim(Request.Form("phone"))
	
	if bz=0 then
		 if keyno="0" then
			if sortnum="" or not isnumeric(sortnum) then
				sqltext="select top 1 sortnum from "+tablename+" where flag='"+flag+"' 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("flag")=flag
		else	
			rs.Open "select * from "+tablename+" where keyno="&keyno,cn,3,3
		end if	
		if isnumeric(sortnum) then
			rs("sortnum")=sortnum
		end if	
		rs("title")=title
		rs("phone")=phone
		
		rs.Update()

		Response.Write("<script language=Javascript>")
		Response.Write("window.location.href='"+backhtml+"'")
		Response.Write("</script>")
		
	end if
else
	if keyno="0" then
		curr_title="新记录"
	else
		sqltext="select * from "+tablename+" where keyno="&keyno
		rs.Open sqltext,cn,1,1
		sortnum=rs("sortnum")
		title=trim(rs("title"))
		phone=trim(rs("phone"))
		flag=trim(rs("flag"))
		curr_title=title
	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>
	<%if seekname="" then%>
		当前位置:<%=curr_title%> ←
	<%end if%>	
		<a href="<%=backhtml%>">返回列表</a></td></tr>
	<tr><td><hr size=1></td></tr>
 </table>
 <table width="100%" border="0" cellspacing="2" cellpadding="0" align="center">
	<tr bgcolor=ffdfbf><td colspan=2 height=20><font class=t1>具体内容</font></td></tr>
	<tr><td colspan=2 height=5></td></tr>
	<tr><td width=70 align=right>索引号&nbsp;</td>
		<td><INPUT type="text" value="<%=sortnum%>" name=sortnum maxlength=10 size=10 <%=keystate%>>
		</td></tr>
	<tr><td width=70 align=right>标题名称&nbsp;</td>
		<td><INPUT type="text" value="<%=title%>" name=title maxlength=50 size=50><font color=red>*</font></td></tr>
	<tr><td width=70 align=right>电话&nbsp;</td>
		<td><INPUT type="text" value="<%=phone%>" name=phone maxlength=30 size=30 <%=keystate%>>
		</td></tr>
	<tr><td width=70 align=right height=30></td>
		<td> 
		&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="submit" value="确认提交">&nbsp;&nbsp;&nbsp;&nbsp;
		</td></tr>
</table>	
	<script language=Javascript>
		form1.title.focus()
	</script>
<%
end if
%>
</form>
<body>
</html>
<script language=Javascript>

	function checkform(form)
	{
		var flag=true;

		if(form("title").value==""){alert("请填入标题名称!");form("title").focus();return false;}
		
		if (flag==true) {flag=checkchar(form("title").value)} 
	//	if (flag==true) {flag=checkchar(form("content").value)} 
		
		return flag;
	}
	
	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;
	}

</script>
⌨️ 快捷键说明

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