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

📄 add2.asp

📁 asp的新闻网站
💻 ASP
字号:
<%Response.Buffer=true%>
<%
'修改:
'时间:
	'模板设计:秦怀平(jincao@yeah.net)
	'开发时间:2000.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<%
imageUp=0
set rs=server.CreateObject("adodb.recordset")
if request("submit")<>"" then
	sql="news2_picMenu"
	rs.open sql,conn,3,3
	rs.addnew
	set rsl=server.CreateObject("adodb.recordset")
	sqll="select * from news2_picMenu where left(picmenuid,3)='"&left(request("picmenuid"),3)&"' order by picMenuId desc"
	rsl.open sqll,conn,3,1
	if rsl.eof then
		tempno=1
	else
		tempno=clng(rsl("picMenuId"))+1
	end if
	rsl.close
	this1Id=right("00000000000000000000"&cstr(tempno),6)
	rs("picMenuId")= this1Id
	if request("picMenuName")="" then
		response.write "数据保存出错!原因:特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
		response.end
	end if
	sqll="select * from news2_picMenu where picMenuName='"&killStr(request("picMenuName"))&"'"
	rsl.open sqll,conn,3,1
	if not rsl.eof then
		response.write "字段picMenuName不允许重复!<a href=javascript:history.back()>按此返回</a>"
		response.end
	end if
	rsl.close
	rs("picMenuName")=killStr(request("picMenuName"))
	rs.update
	rs.close%>
<script language=javascript>
alert("输入成功!");
//location.href =history.back();
</script>
<%end if%>

<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check(form1){
	if (trim(form1.picMenuName.value)=='')
		{alert('字段图片栏目名称不允许为空!');
		form1.picMenuName.focus();
		form1.picMenuName.select();
		return (false);
		}
	}
</script>

</head>
<body bgcolor="#FFFFE0">
<%
set rsSelect=server.CreateObject("adodb.recordset")
sqlselect="select * from news2_picmenu where picmenuid='"&request("picmenuid")&"'"
rsselect.Open sqlselect,conn,3,3

%>
<form method=POST action=<% =request.servervariables("path_info")%>?picmenuid=<%=request("picmenuid")%> name=add onsubmit="return check(this);">
	<p align=center><b><font size=4 color=#0000FF><u>图片栏目数据添加</u></font></b></p>
	<div align=center><center>
	<table style="border: 1 solid #0000FF" width=85%>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>所属一级图片栏目名称:</td>
			<td style="border: 1 solid #0000FF"><%=rsselect("picmenuname")%></td>
		</tr>
		<tr>
			<td style="border: 1 solid #0000FF" align=right>二级图片栏目名称:</td>
			<td style="border: 1 solid #0000FF"><input type=Text name=picMenuName size=20 maxLength=25></td>
		</tr>
		<tr>
			<td style="border: 1 solid #0000FF" colspan=2 align=center><input type=submit value=' 确定 ' name=submit> <input type=reset value=' 重写 ' name=reset></td>
		</tr>
	</table>
	</center></div>
</form>
</body>
</html>

⌨️ 快捷键说明

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