📄 1polladd.asp
字号:
<head>
<link rel="stylesheet" type="text/css" href="poll.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
title=Trim(request.form("title"))
pid=request("pid")
if Request.form("title")<>"" then
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("poll.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "descrip",conn,1,3
if pid="" then rs.addnew
rs("title")=title
rs.Update
pid=rs("ID")
rs.close
for i=1 to 10
if Request("pitem"&i)<>"" then
sql="select * from items where pid="&pid&" and pitem="&i
rs.Open sql,conn,1,3
if rs.eof or rs.bof then rs.addnew
rs("pid")=pid
rs("pitem")=i
rs("pitemtext")=Request("pitem"&i)
rs.Update
rs.close
end if
next
conn.close
set rs=nothing
set conn=nothing
end if
pid=Request("pid")
%>
<form name=form1 method="post" action="polladd.asp">
<input type=hidden name=pid VALUE=<%=pid%>>
<%
if pid <>"" then
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("poll.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from descrip where ID="&pid
rs.Open sql,conn,1,1
title=rs("title")
sql="select * from items where pid="&pid
rs.close
rs.Open sql,conn,1,1
Response.Write"<P align=center><b>调查修编</b>"
Response.Write "<br><br><br>"
Response.Write "标 题：<INPUT size=40 name=title value="&title&"><br><br>"
for i=1 to rs.recordcount
if rs("pitemtext")<>"" then Response.Write "选 项("&i&")：<INPUT size=30 name=pitem"&i&" value="&rs("pitemtext")&"> <img src=del.gif><a href=polldel.asp?pid="&pid&"&del="&rs("pitem")&">删除</a> "
if i mod 2 =0 then Response.Write "<br>"
rs.movenext
next
Response.Write "<br><br>"
rs.close
conn.close
set rs=nothing
set conn=nothing
else
Response.Write"<P align=center><b>投票申请</b>"
Response.Write "<br><br><br>"
Response.Write "标 题：<INPUT size=40 name=title value=><br><br>"
for i=1 to 10
Response.Write "选 项("&i&")：<INPUT size=30 name=pitem"&i&">"
if i mod 2 =0 then Response.Write "<br>"
next
end if
%>
</head>
<p align="center">
<INPUT class=buttonface type=submit value=" 确 定 ">
<INPUT class=buttonface type=reset value=" 清 除 "></p>
</form>
<P align="center"><a href="pollman.asp">编辑</a>
<a href="pollman.asp">查看</a>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -