📄 admin_title_add.asp

📁 Build 1025更新：美化了后台,简化了后台操作
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<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
	dim title,ms,sid
	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&"'",conn,1,3
	if not(rs.eof and rs.bof) then
		response.write "<script>alert('已经存在此投票标题！');history.back(1)</script>"
		response.end 
	else
		rs.addnew
		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_add.asp'</script>"
end if
%>
<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" 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")%>"><%=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"></td>
						</tr>
						<tr>
							<td width="40%" align="right">投票类型：</td>
							<td><select size="1" name="ms">
							<option value="1">单选</option>
							<option value="2">多选</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>

</html>
⌨️ 快捷键说明

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