update.asp
来自「asp的新闻网站」· ASP 代码 · 共 159 行
ASP
159 行
<%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">
<%
set rs=server.CreateObject("adodb.recordset")
set rsl=server.CreateObject("adodb.recordset")
if request("submit")<>"" then
id=request("id")
this1Id=id
sql="select * from news2_survey where left(surveyid,8)='"&left(id,8)&"' order by surveyid"
rs.open sql,conn,3,3
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")=killStr(request("visible"))
if rs("votenum")>0 then
else
rs("votenum")=0
end if
rs.update
if request("visible")="1" then
conn.execute "update news2_survey set visible='0' where left(surveyid,8)<>'"&left(id,8)&"' and menuid='"&request("menuid")&"'"
end if
if not rs.EOF then rs.MoveNext
for i=1 to 10
subx="sub"&cstr(i)
subi=killstr(request(subx))
if subi<>"" or not rs.eof then
if rs.eof then
rs.AddNew
this1Id=right("000000000000"&cstr(clng(this1Id)+1),10)
rs("surveyid")=this1Id
else
this1Id=rs("surveyid")
end if
rs("surveytitle")=left(trim(subi),170)
rs("menuid")=killstr(request("menuid"))
if killStr(request("visible"))="1" and subi<>"" then
rs("visible")=killStr(request("visible"))
else
rs("visible")="0"
end if
rs("votenum")=0
rs.Update
end if
if not rs.EOF then rs.MoveNext
next
rs.close%>
<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")
id=request("id")
sql="select * from news2_survey where left(surveyid,8)='"&left(id,8)&"' order by surveyid"
rs.Open sql,conn,3,1
if not rs.EOF then
%>
<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="<%=rs("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><%=rs("surveytitle")%></textarea></td>
</tr>
<%
if not rs.EOF then rs.MoveNext
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 value='<%if not rs.EOF then Response.Write rs("surveytitle")%>'></td>
</tr>
<%
if not rs.EOF then rs.MoveNext
next
rs.Movefirst
%>
<tr>
<td style="border: 1 solid #0000FF" align=right>有效:</td>
<td style="border: 1 solid #0000FF">
<input type=radio value=1 name=visible <%if rs("visible")="1" then Response.Write "checked"%>>立即有效
<input type=radio value=0 <%if rs("visible")="0" then Response.Write "checked"%> name=visible>预置无效
</td>
</td>
<input type=hidden value=<%=id%> name=id>
<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>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?