votemodify.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
Call opendatabase
Call txl_SiteHead (const_txlname&"- 管理员")
If Request.QueryString("action") ="del" Then
	Call del
Else
	Call main
End If

Call CloseDataBase
Call SiteBottom
Sub main
%>

<%
dim id,Title,DateAndTime,i,sql,rs
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from vote1 where id="&id
rs.open sql,conn,1,1
if rs.eof then
response.write "<meta http-equiv=""refresh"" content=""2;url=javascript:history.go(-1)"">"
response.write("<table width=400 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<tr><td>操作错误！</td></tr>")
response.write(" <tr><td><a href=vbscript:history.back()>回去重来</a>,2秒钟后自动返回</td></tr>")
response.write("</table>")
	Response.End 
else
Title=rs("Title")
DateAndTime=rs("DateAndTime")
end if
%>
<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
<SCRIPT language="JavaScript" type="text/javascript">
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<br><table border="0" width="700" cellspacing="0" cellpadding="1" bgcolor="#ffffff" align=center>
  <tr>
    <td align=center valign=top width="100%">
      <table border="1" width="100%" cellspacing="0" cellpadding="8" style="border-collapse: collapse" align=center>
        <form method="POST" action="voteSave.asp?id=<%=id%>">
          <tr>
            <td width="100%" height="20" colspan=2  align=center><b>修 改 网 站 投 票</b></td>
          </tr>
          <tr>
            <td width="15%" align="right">主题：</td>
            <td width="85%"><input type="text" name="Title" value="<%=Title%>" size="50" style="font-family: 宋体; font-size: 9pt"></td>
          </tr>
<%for i=1 to 8%>
          <tr>
            <td align="right">选项<%=i%>：</td>
            <td><input type="text" name="select<%=i%>" value="<%=rs("select"&i)%>" size="20" style="font-family: 宋体; font-size: 9pt"> 票数：<input type="text" name="answer<%=i%>" value="<%=rs("answer"&i)%>" size="5" style="font-family: 宋体; font-size: 9pt"></td>
          </tr>
<%next%>
          <tr>
            <td align="right" height=25>发布时间：</td>
            <td><%=DateAndTime%>　</td>
          </tr>
          <tr>
            <td colspan=2 align=center>
 <input type="hidden" value="edit" name="act">
<input type="button" value=" 返 回 " onclick="javascript:history.go(-1)" style="font-family: 宋体; font-size: 9pt">&nbsp; 
              <input type="submit" value=" 修 改 " name="cmdok" style="font-family: 宋体; font-size: 9pt">&nbsp; 
              <input type="reset" value=" 清 除 "  name="cmdcancel" style="font-family: 宋体; font-size: 9pt">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table></br>
<%End SUb%>