?? main.asp
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
if session("admins")="" then
response.redirect "adminn.asp"
end if
%>
<HTML>
<HEAD>
<TITLE> main </TITLE>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</HEAD>
<!-- #include file="conn.asp"-->
<BODY>
<%
edit=request.querystring("edit")
select case edit
case "edit"
admins=htmlencode(killbad(trim(request.form("admins"))))
passs=htmlencode(killbad(trim(request.form("passs"))))
sitename=htmlencode(killbad(trim(request.form("sitename"))))
check=htmlencode(killbad(trim(request.form("check"))))
if admins<>"" then
set ed=server.createobject("adodb.recordset")
ed.open "select * from vset",conn,1,3
ed("admins")=admins
ed("passs")=passs
ed("sitename")=sitename
ed("check")=check
ed.update
ed.close
set ed=nothing
response.redirect "main.asp?action=vset"
end if
case "addvote"
addvote=htmlencode(killbad(trim(request.form("addvote"))))
if addvote<>"" then
set adv=server.createobject("adodb.recordset")
adv.open "select * from vote",conn,1,3
adv.addnew
adv("vname")=addvote
adv.update
adv.close
set adv=nothing
response.redirect "main.asp?action=viewvote"
end if
case "editxm"
votenames=htmlencode(killbad(trim(request.form("votenames"))))
if votenames<>"" then
set vot=server.createobject("adodb.recordset")
vot.open "select * from vset",conn,1,3
if not vot.eof then
vot("votename")=votenames
vot.update
vot.close
set vot=nothing
response.redirect "main.asp?action=addedit"
end if
end if
end select
%>
<%
action=request.querystring("action")
select case action
case "vset"
%>
<TABLE width="98%" border="1" cellpadding="2" cellspacing="0" bordercolordark="#ffffff" bordercolorlight="#cccccc">
<TR><form method="post" action="main.asp?edit=edit">
<TD class="css" height="27" bgcolor="#f7f7f7"colspan="2" align="center"><b>系統設置</b></TD>
</TR>
<TR>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from vset",conn,1,1
if not rs.eof then
%>
<TD class="css" align="center">管理員名稱：</TD>
<TD class="css"><input type="text" name="admins" class="inputt" value="<%=rs("admins")%>"></TD>
</TR>
<TR>
<TD class="css" align="center">管理員密碼：</TD>
<TD class="css"><input type="text" name="passs" class="inputt" value="<%=rs("passs")%>"></TD>
</TR>
<TR>
<TD class="css" align="center">網站名稱：</TD>
<TD class="css"><input type="text" name="sitename" class="inputt" value="<%=rs("sitename")%>"></TD>
</TR>
<!--
<TR>
<TD class="css" align="center">投票類型：<br> <font color="#cc0000">"1"為多選投票，"0"為單選投票</font></TD>
<TD class="css"><input type="text" name="check" class="inputt" value="<%=rs("check")%>"></TD>
</TR>-->
<TR>
<TD class="css" align="center" colspan="2"><input type="submit" value="修改" class="buttonn"> <input type="reset" value="取消修改" class="buttonn"></TD>
</TR>
<%end if%>
</form>
</TABLE>
<%
case "editxm"
%>
<TABLE border="1" cellpadding="2" cellspacing="0" bordercolordark="#ffffff" bordercolorlight="#cccccc">
<TR>
<TD class="css" align="center" bgcolor="#f7f7f7" height="27"><b>修改投票名稱</b></TD>
</TR><%
set vname=server.createobject("adodb.recordset")
vname.open "select * from vset",conn,1,1
if not vname.eof then
%>
<TR><form method="post" action="main.asp?edit=editxm">
<TD class="css"><input type="text" class="inputt" name="votenames" value="<%=vname("votename")%>" size="50"> <input type="submit" value="修改" class="buttonn"></TD></form><%
end if
vname.close
set vname=nothing
%>
</TR>
</TABLE>
<%
case "addedit"
%>
<TABLE width="98%" border="0" cellpadding="2" cellspacing="0" bordercolordark="#ffffff" bordercolorlight="#cccccc">
<TR>
<TD class="css" align="center"><a href="main.asp?action=addedit">查看已有投票</a> <a href="main.asp?action=">添加新投票</a></TD>
</TR>
<%
set vv=server.createobject("adodb.recordset")
vv.open "select * from vset",conn,1,1
if not vv.eof then
%>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<TR>
<TD class="css" align="center">現有投票項目:<br><br>1、<a href="main.asp?action=viewvote"><font color="#cc0000"><%=vv("votename")%></font></a> <a href="main.asp?action=editxm">修 改</a> <a href="#">刪 除</a></TD>
</TR>
<%
end if
%>
</TABLE>
<%
case "delxx"
idd=request.querystring("idd")
conn.execute("delete * from vote where id=cint('"&idd&"')")
response.redirect "main.asp?action=viewvote"
%>
<%
case "editxx"
%>
<TABLE width="98%" border="0" cellpadding="2" cellspacing="0" bordercolordark="#ffffff" bordercolorlight="#cccccc">
<TR>
<TD class="css" align="center"><a href="main.asp?action=addedit">查看已有投票</a> <a href="main.asp?action=">添加新投票</a></TD>
</TR>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<%
idd=request.querystring("idd")
set vvv=server.createobject("adodb.recordset")
vvv.open "select * from vote where id=cint('"&idd&"')",conn,1,1
if not vvv.eof then
%>
<%
vname=htmlencode(killbad(trim(request.form("vname"))))
vcount=htmlencode(killbad(trim(request.form("vcount"))))
if vname<>"" then
set vvvs=server.createobject("adodb.recordset")
vvvs.open "select * from vote where id=cint('"&idd&"')",conn,1,3
if not vvvs.eof then
vvvs("vname")=vname
vvvs("vcount")=vcount
vvvs.update
vvvs.close
set vvvs=nothing
end if
end if
%>
<tr><td class="css" align="center"><a href="main.asp?action=viewvote"><font color="#cc0000">返回投票項目</font></a></td></tr><form method="post" action="">
<tr><td class="css" align="center">項目名稱：<input type="text" name="vname" value="<%=vvv("vname")%>" class="inputt"></td></tr>
<tr><td class="css" align="center">投票數：<input type="text" value="<%=vvv("vcount")%>" name="vcount" class="inputt" size="10"> <input type="submit" value="修改" class="buttonn"></td></tr></form>
<%
end if
%></table>
<%
case "viewvote"
%>
<TABLE width="98%" border="0" cellpadding="2" cellspacing="0" bordercolordark="#ffffff" bordercolorlight="#cccccc">
<TR>
<TD class="css" align="center"><a href="main.asp?action=addedit">查看已有投票</a> <a href="main.asp?action=">添加新投票</a></TD>
</TR>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr><td> </td></tr>
<tr>
<td class="css" align="center">
<TABLE border="1" cellpadding="2" cellspacing="0" bordercolordark="#ffffff" bordercolorlight="#cccccc">
<TR>
<TD class="css" align="center" bgcolor="#f7f7f7" height="27">序號</TD>
<TD class="css" align="center" bgcolor="#f7f7f7" height="27">項目名稱</TD>
<TD class="css" align="center" bgcolor="#f7f7f7" height="27">投票數</TD>
<TD class="css" align="center" bgcolor="#f7f7f7" height="27">修改</TD>
<TD class="css" align="center" bgcolor="#f7f7f7" height="27">刪除</TD>
</TR>
<%
set vvo=server.createobject("adodb.recordset")
vvo.open "select * from vote",conn,1,1
if not vvo.eof then
do while not vvo.eof
i=i+1
%>
<tr>
<td class="css" align="center"><%=i%>、</td>
<td class="css"><%=vvo("vname")%></td>
<td class="css" align="center"><%=vvo("vcount")%></td>
<td class="css" align="center"><a href="main.asp?action=editxx&idd=<%=vvo("id")%>">修改</a></td>
<td class="css" align="center"><a href="main.asp?action=delxx&idd=<%=vvo("id")%>">刪除</a></td>
</tr>
<%
vvo.movenext
loop
end if
%>
<tr><form method="post" action="main.asp?edit=addvote">
<td class="css" colspan="5">添加投票項目：<input type="text" name="addvote" class="inputt"> <input type="submit" value="添加" class="buttonn"></td>
</form>
</tr>
</TABLE>
</td></tr>
</table>
<%
end select
%>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -