<%@language=vbscript codepage=936 %> <% dim id,Title,DateAndTime,i,sql id=request.QueryString("id") if id<>"" then if not isnumeric(id) then response.write"" response.end end if end if set rs=server.createobject("adodb.recordset") sql="select * from vote where id="&id rs.open sql,conn,1,1 if rs.eof then response.write "" Response.End else Title=rs("Title") DateAndTime=rs("DateAndTime") end if %> <%for i=1 to 8%> <%next%>

修改网站投票
投主题：
选 项 <%=i%>：	" size="20" style="font-family: 宋体; font-size: 9pt"> 票数：" size="5" style="font-family: 宋体; font-size: 9pt">
发布时间：	<%=DateAndTime%>

<% rs.close set rs=nothing conn.close set conn=nothing%>