📄 modifysubject.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<!--#include file="sql.asp"-->
<html>
<head>
<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("XHType")="Modify" Then
Call Modify()
Else
Call List()
End If
Dim MFrs,ADrs
If Request.QueryString("act")="save" Then
Set MFrs=Server.CreateObject("ADODB.RecordSet")
MFrs.open "Select * from XH_Subject where id="&Request.Form("sid"),conn,1,3
If not (MFrs.eof and MFrs.bof) Then
MFrs("subject")=Trim(Request.Form("Subject"))
MFrs.update
MFrs.close
Set MFrs=nothing
End If
Response.Redirect "ModifySubject.asp"
ElseIf Request.QueryString("act")="add" Then
Set ADrs=Server.CreateObject("ADODB.RecordSet")
ADrs.open "Select * from XH_Subject",conn,1,3
ADrs.addnew
ADrs("subject")=Trim(Request.Form("newsubject"))
ADrs.update
ADrs.close
Set ADrs=nothing
Response.Redirect "ModifySubject.asp"
ElseIf Request.QueryString("act")="del" Then
conn.execute("delete from XH_Subject where id="&Request.QueryString("sid")&"")
Response.Redirect "ModifySubject.asp"
End If
%>
<%Sub List()%>
<div align="center">
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * from XH_Subject where id is not null order by id desc",conn,1,1
%>
<table border="0" width="70%" id="table1" cellspacing="0" cellpadding="3" class="tableborder">
<tr>
<td class="tablebody" width="10%" align="center"><b>ID</b></td>
<td class="tablebody" width="75%" align="center"><b>投票主题</b></td>
<td class="tablebody" align="center" nowrap><b>操作</b></td>
</tr>
<%
Dim i
If not (rs.eof and rs.bof) Then
Do while not rs.eof
%>
<tr>
<td width="10%" align="center" class="tablebody1"><%=rs("id")%></td>
<td width="75%" align="center" class="tablebody1"><a href="ModifyTitle.asp?sid=<%=rs("id")%>" title="修改投票标题"><%=rs("subject")%></a></td>
<td align="center" class="tablebody1" nowrap><a href="#" onclick="javascript:window.open('vcode.asp?sid=<%=rs("id")%>','','width=300,height=60,top=300,left=350,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no');">调用代码</a>/<a href="ModifySubject.asp?XHType=Modify&id=<%=rs("id")%>" title="修改投票标识名">修改</a>/<a href="?act=del&sid=<%=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='4'><font color='red'>还没有任何主题！</font></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" method="post" name="addsubject">
<tr>
<td align="center" class="tablebody1"><input type="text" name="newsubject" size="30"> <input type="submit" name="submit" value="添加" onclick="if(addsubject.newsubject.value==''){alert('主题名不能为空！');addsubject.newsubject.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_Subject where id="&Request.QueryString("id"),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=save" method="post" name="form1">
<tr>
<input type="hidden" value="<%=Request.QueryString("id")%>" name="sid">
<td align="center" class="tablebody1"><input type="text" value="<%=Showrs("Subject")%>" size="30" name="Subject"> <input type="submit" name="submit" value="确认修改" onclick="if(form1.Subject.value==''){alert('标识名不能为空！');form1.Subject.focus();return false;}return true;"></td>
</tr>
</form>
</table>
</div>
<%
Showrs.close
Set Showrs=nothing
Else
Response.Write "ModifySubject.asp"
End If
End Sub
%>
<!--#include file="admin_foot.asp"-->
<%Call EndConnection()%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -