?? admin_title_modify.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>修改投票標題-></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 + -