📄 polladd.asp
字号:
<head>
<link rel="stylesheet" type="text/css" href="poll.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<form name=form1 method="post" action="polladdsave.asp">
<%
pid=request("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&" order by pitem asc"
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><br>"
rs.movenext
next
for i=rs.recordcount+1 to 10
Response.Write "选项("&i&")：<INPUT size=36 name=pitem"&i&"><br>"
next
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&"><br>"
next
end if
response.write "<br>选择方式：<select size=1 name=voteselect><option>单选</option><option>复选</option></select>"
%>
<input type=hidden name=pid VALUE=<%=pid%>>
<title>调查</title>
</head>
<body bgcolor="#FFFFE6">
<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> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -