📄 add.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="select * from news2_DIY order by diyid desc"
rs.open sql,conn,3,3
if rs.EOF then
diyid=1
else
diyid=rs("diyid")+1
end if
rs.addnew
rs("diyid")=diyid
set rsl=server.CreateObject("adodb.recordset")
if request("diyClass")="" then
response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
rs("diyClass")=killStr(request("diyClass"))
if request("diyName")="" then
response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
sqll="select * from news2_DIY where diyName='"&killStr(request("diyName"))&"'"
rsl.open sqll,conn,3,1
if not rsl.eof then
response.write "字段diyName不允许重复！<a href=javascript:history.back()>按此返回</a>"
response.end
end if
rsl.close
rs("diyName")=left(rtrim(killStr(request("diyName"))),25)
if request("diyUrl")="" then
response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
rs("diyUrl")=left(rtrim(killStr(request("diyUrl"))),100)
rs("diyindex")=killStr(request("diyindex"))
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.diyName.value)=='')
{alert('字段链接名称不允许为空!');
form1.diyName.focus();
form1.diyName.select();
return (false);
}
if (trim(form1.diyName.value).length>50)
{alert('链接名称超长（50字以内）!');
form1.diyName.focus();
form1.diyName.select();
return (false);
}
if (trim(form1.diyUrl.value)=='')
{alert('字段链接地址不允许为空!');
form1.diyUrl.focus();
form1.diyUrl.select();
return (false);
}
if (trim(form1.diyUrl.value).length>150)
{alert('链接地址超长（150字以内）!');
form1.diyUrl.focus();
form1.diyUrl.select();
return (false);
}
if (trim(form1.diyindex.value)=='')
{alert('WEB上条目不允许为空!');
form1.diyindex.focus();
form1.diyindex.select();
return (false);
}
if (isNaN(form1.diyindex.value))
{alert('WEB上条目必须是数字!');
form1.diyindex.focus();
form1.diyindex.select();
return (false);
}
if (form1.diyindex.value<1)
{alert('WEB上条目必须大于1!');
form1.diyindex.focus();
form1.diyindex.select();
return (false);
}
}
</script>
</head>
<body bgcolor="#FFFFE0">
<%
set rsSelect=server.CreateObject("adodb.recordset")
%>
<form method=POST action=<% =request.servervariables("path_info")%> name=add onsubmit="return check(this);">
<p align=center><b><font size=4 color=#0000FF><u>DIY情报站数据添加</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">
<select size=1 name=diyClass>
<option value=一周行情综述>一周行情综述
<option value=本月推荐配置>本月推荐配置
<option value=电脑配件>电脑配件
<option value=地区行情>地区行情
</select>
</td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>WEB上显示顺序:</td>
<td style="border: 1 solid #0000FF"> <input type=Text name=diyindex size=2 maxLength=2></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>链接名称:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=diyName size=25 maxLength=25></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>链接地址:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=diyUrl size=40 maxLength=100 VALUE=HTTP://></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 + -