📄 modifyquestion.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="sql.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>投票问题管理</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<!--#include file="admin_top.asp"-->
<%
If Request.QueryString("sid")="" Then
Response.Write "<script>alert('ID号不能为空！');history.back(1)</script>"
Response.End
End If
If not IsNumeric(Request.QueryString("sid")) Then
Response.Write "<script>alert('ID号为非数字！');history.back(1)</script>"
Response.End
End If
If Request.QueryString("tid")="" Then
Response.Write "<script>alert('ID号不能为空！');history.back(1)</script>"
Response.End
End If
If not IsNumeric(Request.QueryString("tid")) Then
Response.Write "<script>alert('ID号为非数字！');history.back(1)</script>"
Response.End
End If
Dim yrs,Subject,Title
Set yrs=Server.CreateObject("ADODB.RecordSet")
yrs.open "Select * from XH_Subject where id="&Request.QueryString("sid"),conn,1,1
If (yrs.eof and yrs.bof) Then
Response.Write "<script>alert('此ID号不存在或已被删除！');history.back(1)</script>"
Response.End
Else
Subject=yrs("subject")
End If
yrs.close
yrs.open "Select * from XH_Title where id="&Request.QueryString("tid"),conn,1,1
If (yrs.eof and yrs.bof) Then
Response.Write "<script>alert('此ID号不存在或已被删除！');history.back(1)</script>"
Response.End
Else
Title=yrs("title")
End If
yrs.close
Set yrs=nothing
If Request.QueryString("XHType")="Modify" Then
Call Modify()
ElseIf Request.QueryString("XHType")="del" Then
Call Del()
Else
Call List()
End If
Dim Mfs
Set Mfs=Server.CreateObject("ADODB.RecordSet")
If Request.QueryString("act")="add" Then
Mfs.open "Select * from XH_Question",conn,1,3
Mfs.addnew
Mfs("question")=Trim(Request.Form("newquestion"))
Mfs("ps")=cint(Trim(Request.Form("nps")))
Mfs("tid")=cint(Request.QueryString("tid"))
Mfs.update
Mfs.close
Response.Redirect "ModifyQuestion.asp?sid="&Request.QueryString("sid")&"&tid="&Request.QueryString("tid")
ElseIf Request.QueryString("act")="Modify" Then
Mfs.open "Select * from XH_Question where id="&Request.QueryString("qid"),conn,1,3
Mfs("question")=Trim(Request.Form("oldquestion"))
Mfs("ps")=cint(Trim(Request.Form("ps")))
Mfs.update
Mfs.close
Response.Redirect "ModifyQuestion.asp?sid="&Request.QueryString("sid")&"&tid="&Request.QueryString("tid")
End If
Sub Del()
conn.execute("delete from XH_Question where id="&Request.QueryString("qid")&"")
Response.Redirect "ModifyQuestion.asp?sid="&Request.QueryString("sid")&"&tid="&Request.QueryString("tid")
End Sub
Sub List()
%>
<div align="center">
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * from XH_Question where tid="&Request.QueryString("tid")&" order by id desc",conn,1,1
%>
<table border="0" width="80%" id="table1" cellspacing="0" cellpadding="3" class="tableborder">
<tr>
<td class="tablebody" width="8%" align="center"><b>ID</b></td>
<td class="tablebody" width="25%" align="center"><b>投票问题</b></td>
<td class="tablebody" width="5%" align="center"><b>票数</b></td>
<td class="tablebody" width="25%" align="center"><b>投票标题</b></td>
<td class="tablebody" width="25%" align="center"><b>投票主题</b></td>
<td class="tablebody" align="center"><b>操作</b></td>
</tr>
<%
Dim i
If not (rs.eof and rs.bof) Then
Do While not rs.eof
%>
<tr>
<td class="tablebody1" width="8%" align="center"><%=rs("id")%></td>
<td class="tablebody1" width="25%" align="center"><a href="ModifyQuestion.asp?XHType=Modify&sid=<%=Request.QueryString("sid")%>&tid=<%=Request.QueryString("tid")%>&qid=<%=rs("id")%>"><%=rs("question")%></a></td>
<td class="tablebody1" width="5%" align="center" nowrap><%=rs("ps")%></td>
<td class="tablebody1" width="25%" align="center"><a href="ModifyTitle.asp?sid=<%=Request.QueryString("sid")%>"><%=Title%></a></td>
<td class="tablebody1" width="25%" align="center"><a href="ModifySubject.asp"><%=Subject%></a></td>
<td class="tablebody1" align="center"><a href="ModifyQuestion.asp?XHType=Modify&sid=<%=Request.QueryString("sid")%>&tid=<%=Request.QueryString("tid")%>&qid=<%=rs("id")%>">修改</a>/<a href="ModifyQuestion.asp?XHType=del&sid=<%=Request.QueryString("sid")%>&tid=<%=Request.QueryString("tid")%>&qid=<%=rs("id")%>" onclick="if(confirm('\n真的要删除该投票项？')){return true;}return false;">删除</a></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
Else
Response.Write "<tr><td class='tablebody1' align='center' colspan='6'>还没有任何投票项！</td></tr>"
End if
%>
</table>
<%
rs.close
Set rs=nothing
%>
</div>
<br>
<div align="center">
<table border="0" width="50%" cellspacing="1" cellpadding="3" class="tableborder">
<tr>
<th>添加投票问题</th>
</tr>
<form action="?act=add&sid=<%=Request.QueryString("sid")%>&tid=<%=Request.QueryString("tid")%>" method="post" name="addquestion">
<tr>
<td class="tablebody1" align="center">问题：<input type="text" name="newquestion" size="30">
票数：<input type="text" name="nps" size="5" value="0"> <input type="submit" name="submit" value="添加" onclick="if(addquestion.newquestion.value==''){alert('标题名不能为空！');addquestion.newquestion.focus();return false;}return true;"></td>
</tr>
</form>
</table>
</div>
<%
End Sub
Sub Modify()
Dim Showrs
Set Showrs=Server.CreateObject("ADODB.RecordSet")
Showrs.open "select * from XH_Question where id="&Request.QueryString("qid"),conn,1,1
If not (Showrs.eof and Showrs.bof) Then
%>
<div align="center">
<table border="0" width="50%" id="table2" cellspacing="1" cellpadding="3" class="tableborder">
<tr>
<th>修改投票问题</th>
</tr>
<form action="?act=Modify&sid=<%=Request.QueryString("sid")%>&tid=<%=Request.QueryString("tid")%>&qid=<%=Showrs("id")%>" method="post" name="modifyquestion">
<tr>
<td class="tablebody1" align="center">问题：<input type="text" name="oldquestion" size="30" value="<%=Showrs("question")%>"> 票数：<input type="text" name="ps" size="5" value="<%=Showrs("ps")%>"> <input type="submit" name="submit" value="修改" onclick="if(modifyquestion.oldquestion.value==''){alert('标题名不能为空！');modifyquestion.oldquestion.focus();return false;}if(modifyquestion.ps.value==''){alert('票数不能为空！');modifyquestion.ps.focus();return false;}return true;"></td>
</tr>
</form>
</table>
</div>
<%
Showrs.close
Set Showrs=nothing
Else
Response.Redirect "ModifyQuestion.asp?sid="&Request.QueryString("sid")&"&tid="&Request.QueryString("tid")
End If
End Sub
%>
<!--#include file="admin_foot.asp"-->
<%Call EndConnection()%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -