📄 admin_title_modify.asp

📁 Build 1025更新：美化了后台,简化了后台操作
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"--><%
dim title,ms,sid
if request("id")="" or IsNumeric(request("id"))=false then
	response.write "<script>alert('ID号必须为数字！');history.back(1)</script>"
	response.end
end if
%>
<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="Admin_STYLE.CSS">
</head>

<script language="javascript">
function check(){
	if(form1.sid.selectedIndex==-1){
		alert("所属主题不能为空！");
		form1.sid.focus();
		return false;}
	if(form1.title.value==""){
		alert("投票标题不能为空！");
		form1.title.focus();
		return false;}	
	return true;
	}
</script>
<%
if request("act")="save" then
	sid=request.form("sid")
	title=trim(request.form("title"))
	ms=request.form("ms")
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from XH_title where title='"&title&"' and id<>"&request("id"),conn,1,1
	if not(rs.eof and rs.bof) then
		response.write "<script>alert('已经存在此标题主题！');history.back(1)</script>"
		response.end 
	end if
	rs.close
	set rs=nothing
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from XH_title where id="&request("id"),conn,1,3
	if rs.eof and rs.bof then
		response.write "<script>alert('该投票标题不存在或已被删除！');history.back(1)</script>"
		response.end
	else
		rs("sid")=sid	
		rs("title")=title
		rs("ms")=ms
		rs.update
	end if
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.write "<script>alert('修改投票标题成功！');location.href='admin_title_modify.asp?id="&request("id")&"'</script>"
end if

set rs=server.createobject("adodb.recordset")
rs.open "select * from XH_title where id="&request("id"),conn,1,1
if rs.eof and rs.bof then
	response.write "<script>alert('该投票标题不存在或已被删除！');history.back(1)</script>"
	response.end
else
	sid=rs("sid")
	title=rs("title")
	ms=rs("ms")
end if
rs.close
set rs=nothing		
%>
<body topmargin="1" leftmargin="1">

<div align="center">
	<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="table1" bgcolor="#E1F4EE" bordercolor="#009286">
		<tr>
			<td bgcolor="#009286"><font color="#FFFFFF"><b>修改投票标题-&gt;</b></font></td>
		</tr>
		<tr>
			<td>
			<div align="center">
				<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%" id="table2" bordercolor="#FFFFFF">
					<form action="?act=save&id=<%=request("id")%>" method="post" name="form1" onsubmit="return check()">
						<tr>
							<td width="40%" align="right">所属主题名称：</td>
							<td>
							<select name="sid">
							<%
							dim srs
							set srs=server.createobject("adodb.recordset")
							srs.open "select * from XH_Subject order by id desc",conn,1,1
							if not (srs.eof and srs.bof) then
								do while not srs.eof
							%>
							<option value="<%=srs("id")%>"<%if sid=srs("id") then response.write " selected"%>><%=srs("subject")%></option>
							<%
								srs.movenext
								loop
							end if
							srs.close
							set srs=nothing
							%>		
							</select>							
							</td>
						</tr>
						<tr>
							<td width="40%" align="right">投票标题名称：</td>
							<td>
							<input type="text" name="title" size="25" value="<%=title%>"></td>
						</tr>
						<tr>
							<td width="40%" align="right">投票类型：</td>
							<td><select name="ms" size="1">
							<option value="1" <%if ms=1 then response.write " selected"%>>
							单选</option>
							<option value="2" <%if ms=2 then response.write " selected"%>>
							多选</option>
							</select></td>
						</tr>
						<tr>
							<td colspan="2" align="center">
							<input type="submit" name="submit" value=" 修 改 "></td>
						</tr>
					</form>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>

</body>
<%
conn.close
set conn=nothing
%>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -