admin.asp

功能完善网站统计系统,网络编程从入门到精通

		<td align="center" class="tablebody1" nowrap><a href="admin.asp?action=Modify&sid=<%=rs("id")%>&option=show" 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                        
if Request.QueryString("option")="show" Then
%>                        
</div>                        
<br>                        
<%Dim Showrs                        
Set Showrs=Server.CreateObject("ADODB.RecordSet")                        
Showrs.open "select * from Subject where id="&Request.QueryString("sid"),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="do.asp?act=modify&sid=<%=Showrs("id")%>" method="post" name="form3">                        
		<tr>                        
			<input type="hidden" value="<%=Request.QueryString("sid")%>" 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(form3.Subject.value==''){alert('标识名不能为空！');form3.Subject.focus();return false;}return true;"></td>                        
		</tr>                        
		</form>                        
	</table>                        
</div>                        
<%                        
Showrs.close                        
Set Showrs=nothing                        
Else                        
	Response.Write "admin.asp?action=Modify"                        
End If	
End If                          
End Sub  
                     
Sub Delete()%>                       
<div align="center">                          
<%                          
Set rs=Server.CreateObject("ADODB.RecordSet")                          
rs.open "Select * from Subject order by id desc",conn,1,1                          
%>                          
 <form name = form5 action = do.asp?act=SetCurrent method = post>                          
<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>                         
		<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="left" class="tablebody1"><a href="Title.asp?action=Delete&sid=<%=rs("id")%>"><%=rs("subject")%></a></td>                          
		<% If rs("process") Then%>                        
		<td align="center" class="tablebody1" nowrap>是</td>                        
		<%Else%>                         
		<td align="center" class="tablebody1" nowrap>否</td>                        
		<%End If%>                     
		<td align = "center" class = "tablebody1" nowrap><a href="do.asp?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                         
	%>                         
	<tr>                         
		<td width="85%" align="center" class="tablebody1" colspan="3"><input type = submit name = setcurrentbutton value = "确定"></td>                         
	</tr>                         
</table>                         
</form>                        
<%                         
rs.close                         
Set rs = nothing                               
End Sub                 
                
Sub ChangeMsg()
If Request.QueryString("result") = "Successful" Then
Response.Write "修改成功！！<br><br>"   
Response.Write "<a href='admin.asp'>返回</a>" 
ElseIf  Request.QueryString("result") = "Failure" Then
Response.Write "当前没有登录用户！！<br><br>"   
Response.Write "<a href='admin.asp'>返回</a>" 
Else              
Dim CPrs             
Set CPrs = Server.CreateObject("ADODB.RecordSet")             
CPrs.Open "Select * from Admin",conn,1,1                    
%>                       
<div align="center">             
	<table border="0" width="50%" id="table1" cellspacing="1" cellpadding="3" class="tableborder">             
	<form action="do.asp?act=changemsg" method="post" name="form4" onsubmit="return check()">             
		<tr>             
			<th colspan="2">信息修改</th>             
		</tr>             
		<tr>             
			<td width="40%" align="right" class="tablebody1"><b>登录名：</b></td>             
			<td class="tablebody1"><input type="text" name="username" value="<%=CPrs("AdminName")%>"></td>             
		</tr>             
		<tr>             
			<td width="40%" align="right" class="tablebody1"><b>密码：</b></td>             
			<td class="tablebody1"><input type="password" name="password" size="21"><br>
			<font color="#808080">不修改密码时，可不填写</font>
			</td>             
		</tr>             
		<tr>             
			<td width="40%" align="right" class="tablebody1"><b>重复密码：</b></td>             
			<td class="tablebody1"><input type="password" name="password1" size="21"><br>
			<font color="#808080">不修改密码时，可不填写</font>
			</td>             
		</tr>   
		<tr>
			<td width="35%" align="right"><b>IP限制：</b></td>
			<td>
			<select name="RestrictIP" size="1">
			<option value="true" <%if CPrs("RestrictIP")=true then Response.Write "selected"%>>是</option>
			<option value="false" <%if CPrs("RestrictIP")=false then Response.Write "selected"%>>否</option>
			</select><br>
			<font color="#808080">选择“是”则不允许同一IP多次投票</font>
			</td>
		</tr>          
		<tr>             
			<td colspan="2" align="center" class="tablebody"><input type="submit" name="submit" value="确认修改"></td>             
		</tr>             
	</form>	             
	</table>             
</div>                
<%           
CPrs.Close           
Set CPrs = nothing   
End If        
End Sub   
     
Sub Logout()        
	Response.Redirect "login.asp"        
End Sub%>                
                        
<table border="0" width="100%" id="table1" cellspacing="1" cellpadding="3" class="tableborder">                          
	<tr>                          
		<td class="tablebody" align="center">Powered By : 网上投票 2005<br>CopyRight 2004-2006  </td>                                                                  
	</tr>                           
</table>                           
                         
                         
                          
</body>                           
                           
</html>