📄 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_stock order by stockid desc"
rs.open sql,conn,3,3
if rs.EOF then
stockid=1
else
stockid=rs("stockid")+1
end if
rs.addnew
rs("stockid")=stockid
rs("area")=trim(request("area"))
set rsl=server.CreateObject("adodb.recordset")
if request("stopTime")="" then
response.write "数据保存出错！原因：截止日期不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
if not isdate(request("stopTime")) then
response.write "数据保存出错！原因：截止日期类型不符、或格式错!<a href=javascript:history.back(-2)>按此返回</a><br>例：2001-02-03 08:30"
response.end
end if
'如果出错，请检查下面的语句。
if killStr(request("stopTime"))="" then
rs("stopTime")=now()
else
rs("stopTime")=killStr(request("stopTime"))
end if
if request("topOrder")="" then
response.write "数据保存出错！原因：名次不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
if not isnumeric(request("topOrder")) then
response.write "数据保存出错！原因：名次类型不符!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
'如果类型不符合，请修改转换函数！
if request("topOrder")="" then
rs("topOrder")=0
else
rs("topOrder")=cLng(killStr(request("topOrder")))
end if
if request("stockValue")="" then
response.write "数据保存出错！原因：股价不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
if not isnumeric(request("stockValue")) then
response.write "数据保存出错！原因：股价类型不符!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
'如果类型不符合，请修改转换函数！
if request("stockValue")="" then
rs("stockValue")=0
else
rs("stockValue")=cLng(killStr(request("stockValue")))
end if
if request("stockName")="" then
response.write "数据保存出错！原因：股票名不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
rs("stockName")=killStr(request("stockName"))
if request("risePercent")="" then
response.write "数据保存出错！原因：涨浮不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
if not isnumeric(request("risePercent")) then
response.write "数据保存出错！原因：涨浮类型不符!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
'如果类型不符合，请修改转换函数！
if request("risePercent")="" then
rs("risePercent")=0
else
rs("risePercent")=cLng(killStr(request("risePercent")))
end if
'如果类型不符合，请修改转换函数！
if request("stockNum")="" then
rs("stockNum")=0
else
rs("stockNum")=cLng(killStr(request("stockNum")))
end if
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.stockName.value)=='')
{alert('字段股票名称不允许为空!');
form1.stockName.focus();
form1.stockName.select();
return (false);
}
if (trim(form1.risePercent.value)=='')
{alert('字段涨浮不允许为空!');
form1.risePercent.focus();
form1.risePercent.select();
return (false);
}
if (isNaN(form1.risePercent.value))
{alert('字段涨浮必须是数字!');
form1.risePercent.focus();
form1.risePercent.select();
return (false);
}
if (trim(form1.stockValue.value)=='')
{alert('字段每股价不允许为空!');
form1.stockValue.focus();
form1.stockValue.select();
return (false);
}
if (isNaN(form1.stockValue.value))
{alert('字段每股价必须是数字!');
form1.stockValue.focus();
form1.stockValue.select();
return (false);
}
if (trim(form1.topOrder.value)=='')
{alert('字段名次不允许为空!');
form1.topOrder.focus();
form1.topOrder.select();
return (false);
}
if (isNaN(form1.topOrder.value))
{alert('字段名次必须是数字!');
form1.topOrder.focus();
form1.topOrder.select();
return (false);
}
if (trim(form1.stopTime.value)=='')
{alert('字段截止日期不允许为空!');
form1.stopTime.focus();
form1.stopTime.select();
return (false);
}
if (isNaN(form1.stockNum.value))
{alert('股票代码必须是数字!');
form1.stockNum.focus();
form1.stockNum.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>股市涨浮数据添加</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 name=area >
<option value=01>沪A
<option value=02>深A
</select>
</td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>股票名称:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=stockName size=20 maxLength=25></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>涨浮:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=risePercent size=10 maxLength=10></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>每股价:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=stockValue size=10 maxLength=10></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>名次:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=topOrder size=10 maxLength=9></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>截止日期:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=stopTime size=20 maxLength=18>例：2001-02-03 08:30</td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>股票代码:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=stockNum size=10 maxLength=9></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 + -