📄 admintit.asp

📁 使用asp+sql编写的的各种程序案例

💻 ASP

字号:

<%@ Language=VBScript %>
<% 
'首先判断是否已经登录
if session("login") <> "yes" then
	Response.Redirect ("adminlog.asp")
end if
%>
<%  
	'创建connection
	set conn = server.CreateObject ("ADODB.Connection")
	conn.Open "Provider=SQLOLEDB;data source=(local);initial catalog=vote;user id=sa;password=;"
	'查询显示所有投票主题...
	sql = "SELECT * FROM title"
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3	
%>

<html>
<head>
<title>Administration</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="stili.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table width="500" border="1" cellspacing="0" align="center" style="border-collapse: collapse" cellpadding="10" bordercolor="#000000" class="nortxtv10">
<tr> 
	
<td bgcolor="#ADD8E6" align="center"><b>编辑、创建、删除、设置投票主题</b><br>
<br>
<form name="edit" method="post" action="adminedit.asp">
<select size="1" name="sql">
<%
'fill drop-down list...
while NOT rs.EOF
%>
	 
<option value="<%=rs.fields("title")%>"><%=rs("title")%></option>
	
<%
rs.MoveNext
wend
%>
</select>
<p></p>
&nbsp;<input type="image" name="sql" src="images/edi.gif" align="absmiddle" WIDTH="50" HEIGHT="17">
&nbsp;<a href="adminnew.asp"><img src="images/new.gif" border="0" align="absmiddle" WIDTH="50" HEIGHT="17"></a>
&nbsp;<a href="adminactive.asp"><img src="images/active.gif" border="0" align="absmiddle" WIDTH="58" HEIGHT="17"></a>
&nbsp;<a href="admindel.asp"><img src="images/delete.gif" border="0" align="absmiddle" WIDTH="47" HEIGHT="17"></a>

</form>

</td>
</tr>
</table>
</body>
</html>

<%	'关闭数据库...
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -