📄 adminupd.asp

📁 使用asp+sql编写的的各种程序案例
💻 ASP
字号:
<%@ Language=VBScript %>
<% 
'检查用户权限
if session("login") <> "yes" then
	Response.Redirect ("adminlog.asp")
end if
%>
<%
a = session("titlea")  '获得需要保存的投票标题
 
	'创建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 where title like '" & a & "'" ', vote where title.id = vote.id and title.title like '" & a & "'"
	set rs = server.CreateObject ("ADODB.Recordset")
	rs.Open sql, conn, 3, 3	
%>
<html>

<head>
<title>Update</title>
<link rel="stylesheet" href="stili.css" type="text/css">
</head>
<body>


<%
'保存标题
rs.Fields("title") = Request.Form("title")
rs.Update

d = rs.fields("id")
%>

<%
rs.close
set rs = nothing

'查询选项...
sql = "SELECT * FROM vote where id = " & d 
set rs = server.CreateObject ("ADODB.Recordset")
rs.Open sql, conn, 3, 3

'循环保存10个选项
for b = 1 to 10

on error resume next
	'如果后一个选项为空，则删除原先选项...
	if Request.form(int(b)+1) = "" and rs.fields("answer") <> "" then
		rs.delete
	else
			
			'保存选项
			rs.fields("answer") = Request.form(int(b)+1)
			rs.update		
		
		'如果选项为空 ...	
		if Request.Form (int(b)+1) = "" then
	
			'Response.Redirect ("admintit.asp")
				
		else
			
			'如果文本框内容不为空，而且当前记录集已经到了最后，则需要添加记录
			if rs.absoluteposition = rs.recordcount and Request.form(int(b)+1) <> "" then
			
			rs.addnew  '添加记录
			rs.fields("answer") = Request.form(int(b)+2)
			rs.fields("id") = d
			rs.fields("pic") = int(b)+1
			rs.update
			
			else
			
			'否则直接保存选项
			rs.fields("answer") = Request.form(int(b)+1)
			rs.update
			
			end if		
			
		end if
		
	end if

rs.movenext
next
%>

<table width="200" border="1" cellspacing="0" align="center" style="border-collapse: collapse" cellpadding="10" bordercolor="#000000">
	<tr> 
	<td bgcolor="#ADD8E6" align="center"><span class="nortxtv10">
	<font color="red"><b>记录被提交!</b>
	</font><p></p>
	谢谢.<p></p><a href="admintit.asp">返回</a></span></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 + -