📄 vote_edit.asp
字号:
<!--#include file="../global/inc/CheckSession.asp"-->
<!--#include file="../global/inc/global.inc.asp"-->
<%
dim VoteId,StrSql,Rs
VoteId = Request.QueryString("VoteId")
StrSql = "Select * From sm_Vote Where VoteId="&VoteId
oConn_Start
Set Rs=oConn.execute(StrSql)
ValidFlag = Rs("ValidFlag")
Title = Rs("Title")
VoteType = Rs("VoteType")
Set Rs=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>神马旅游</title>
<style type="text/css">
<!--
body {
background-color: #fd7029;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="98%" height="750" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td valign="top"><table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td class="bborder">[ <a href="vote_add.asp">添加投票</a> ] [ <a href="vote_list.asp">投票列表</a> ]</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><form name="form1" method="post" action="function_Vote.asp?VoteId=<%=VoteId%>">
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="e0e0e0">
<tr bgcolor="#F7F7F7">
<td width="25%" align="center" bgcolor="#F7F7F7" class="T08"><input type="hidden" value="Vote_edit" name="action">
是否显示</td>
<td bgcolor="#FFFFFF"><input name="ValidFlag"<%if ValidFlag=1 then response.Write(" checked")%> type="radio" value="1">
是
<input type="radio"<%if ValidFlag=0 then response.Write(" checked")%> name="ValidFlag" value="0">
否</td>
<td width="25%" align="center" class="T08">投票类型</td>
<td width="25%" bgcolor="#FFFFFF"><input name="VoteType"<%if VoteType=1 then response.Write(" checked")%> type="radio" value="1">
单选
<input type="radio" name="VoteType"<%if VoteType=0 then response.Write(" checked")%> value="0">
多选</td>
</tr>
<tr bgcolor="#F7F7F7">
<td width="25%" align="center" bgcolor="#F7F7F7" class="T08">投票标题</td>
<td colspan="3" bgcolor="#FFFFFF"><input name="title" value="<%=title%>" type="text" class="input" size="60"></td>
</tr>
<%
dim i
i=1
Strsql = "Select * From sm_VoteDetail Where VoteId="&VoteId
Set Rs=oConn.execute(Strsql)
While not Rs.eof
%>
<tr bgcolor="#F7F7F7">
<td width="25%" align="center" bgcolor="#F7F7F7" class="T08">选项<%=i%></td>
<td bgcolor="#FFFFFF"><input type="hidden" value="<%=Rs("DetailId")%>" name="DetailId<%=i%>">
<input name="DetailTitle<%=i%>" value="<%=Rs("DetailTitle")%>" type="text" class="input" size="40"></td>
<td align="center" class="T08">票数</td>
<td bgcolor="#FFFFFF"><input name="TotalCount<%=i%>" type="text" class="input" id="TotalCount<%=i%>" value="<%=Rs("TotalCount")%>" size="10"></td>
</tr>
<%
i = i+1
Rs.movenext
wend
set Rs=nothing
oConn_Close
%>
<tr bgcolor="#F7F7F7">
<td colspan="4" align="center" class="tablebutbk"><input name="Submit2" type="submit" class="button" value="提 交">
<input type="hidden" value="<%=i%>" name="i">
<input name="Submit2" type="reset" class="button" value="重 置"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -