📄 add.asp
字号:
<%Response.Buffer=true%>
<%
'修改：潘树文
'时间：2001。2。2
'模板设计：秦怀平(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_survey"
rs.open sql,conn,3,3
rs.addnew
set rsl=server.CreateObject("adodb.recordset")
sqll="select * from news2_survey order by surveyid desc"
rsl.open sqll,conn,3,1
if rsl.eof then
tempno=1
else
tempno=clng(left(rsl("surveyid"),8))+1
end if
rsl.close
this1Id=right("0000000000"&cstr(tempno)&"00",10)
rs("surveyid")= this1Id
if request("surveytitle")="" then
response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
rs("surveytitle")=killStr(request("surveytitle"))
rs("menuid")=killStr(request("menuid"))
'if request("visible")="" then
' response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
' response.end
'end if
rs("visible")="1"
rs("votenum")=0
rs.update
for i=1 to 10
subx="sub"&cstr(i)
subi=killstr(request(subx))
if subi<>"" then
rs.AddNew
this1Id=right("000000000000"&cstr(clng(this1Id)+1),10)
rs("surveyid")=this1Id
rs("menuid")=killStr(request("menuid"))
rs("surveytitle")=left(trim(subi),170)
rs("visible")="1"
rs("votenum")=0
rs.Update
end if
next
rs.close
'if request("visible")="1" then
conn.execute "update news2_survey set visible='0' where left(surveyid,8)<>'"&left(this1Id,8)&"' and menuid='"&request("menuid")&"'"
'end if
%>
<script language=javascript>
alert("保存成功！");
</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.surveytitle.value)=='')
{alert('字段主题不允许为空!');
form1.surveytitle.focus();
form1.surveytitle.select();
return (false);
}
if (trim(form1.surveytitle).length>170)
{alert('字段主题过长!');
form1.surveytitle.focus();
form1.surveytitle.select();
return (false);
}
nullFlag=0;
for(i=1;i<11;i++)
{
if (trim(form1.elements[i].value)!='') nullFlag++;
}
if(nullFlag<2)
{alert('至少应该有两个选项!');
form1.sub1.focus();
form1.sub1.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><input type=hidden value=<%=request("menuid")%> name=menuid>
<td style="border: 1 solid #0000FF" align=right>问题:</td>
<td style="border: 1 solid #0000FF"><textarea name=surveytitle cols=40 rows=2 maxLength=200></textarea></td>
</tr>
<%for i=1 to 10%>
<tr>
<td style="border: 1 solid #0000FF" align=right>选项<%=i%>:</td>
<td style="border: 1 solid #0000FF"><input type=text name=sub<%=i%> size=40 maxLength=38></td>
</tr>
<%next%>
<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 + -