setup.asp

留言版整站文件包。数据库管理。前台后台登录。

<%

dim show_vote,vote_DBPath
dim conn,sqlstr,DBPath
dim bodymax,name,url,gbook_url,password,count,today_count,today_time,setup_ip,setup_time

show_vote=0				'设置为0则不显示，设置为1则显示形象中国在线调查。
vote_DBPath="../data/admin.mdb"		'如果以上设置为1，则请修改调查表数据库所在路径。

	''''''''''更改数据库路径''''''''''''
DBPath = Server.MapPath("data/#Gbook.asp")

''''''''''''''以下无需修改'''''''''''''''''
Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open Connstr
sql="select * from admin"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

gbook_name = Rs("gbook_name")
passwords = Rs("password")
name = Rs("name")
url = Rs("url")
bodymax = Rs("bodymax")
pagesize = Rs("pagesize")
today_count = Rs("today_count")
today_time = Rs("today_time")
setup_ip = Rs("setup_ip")
setup_time = Rs("setup_time")
Rs.close

set Rs = nothing
sub error(message)
%>

<script>alert('<%=message%>');history.back();</script><script>window.close();</script>
<%
response.end
end sub
sub error1(message)
%>
<script>alert('<%=message%>');history.go(-2);</script><script>window.close();</script>
<%
response.end
end sub
sub htmlend()
%>
<table width=757 height="50" align=center cellpadding=0 cellspacing=1 bgcolor="#99CCFF">
  <tbody>
    <tr> 
      <td align=center valign="middle" bgcolor="#FFFFf0"> <p>本留言本言论纯属发表者个人意见，与<font color=#990000><b> 
          <a href="http://www.szok.org" target="_blank">易家商务</a></b></font> 立场无关<br>
          Copyright&copy;2002 - 2003：<a href="http://www.szok.org" target="_blank"><b><font color="#FF0000">易家商务</font></b></a> 
          &amp; <strong><font color="#000066">西门飘雪</font></strong>　版本：<a href="http://szok.org">易家商务留言本1.0</a></p></td>
    </tr>
  </tbody>
</table>
<br>
</BODY></HTML>
<%
end sub
%>


<%
sub show_ovte()	
Set conn1 = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vote_DBPath)
	conn1.Open connstr
sql="select top 1 * from votetopic where datediff('d',Now(),vt_expiredate)>0 order by vt_id desc"
set rsv=server.createobject("adodb.recordset")
rsv.open sql,conn1,1,1
if not rsv.eof then
%> 
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>


<table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EFEBEF" class="chinese" align="center">
  <form name="form1" method="post" action="../savevote.asp?vt_id=<%=rsv("vt_id")%>&vt_name=<%=rsv("vt_name")%>" target="_blank">
          <tr> 
            <td align="center" style="vertical-align: middle" bgcolor="#FFFFFF"><%=rsv("vt_name")%></td>
          </tr>
<%sql="select * from voteitem where vt_id="&rsv("vt_id")
set rsv22=server.createobject("adodb.recordset")
rsv22.open sql,conn1,1,1
do while not rsv22.eof
%><font color="#666666"> </font>
          <tr> 
            <td align="center" bgcolor="#FFFFFF" style="line-height:180%"> 
              <p align="left"  ><font color="#666666"> 
              <span style="background-color: #FFFFFF"> 
              <input type="radio" name="item_id" value="<%=rsv22("item_id")%>" class='radio'>
              <%=rsv22("item_name")%></span></td>
          </tr>
<%rsv22.movenext
loop
if rsv22.eof and rsv22.bof then%><font color="#666666"> </font> </font>
          <tr> 
            
      <td align="center" bgcolor="#FFFFFF"><font color="#666666">当前没有选项！</td>
          </tr>
<%end if
rsv22.close
set rsv22=nothing%><font color="#666666"> </font> </font>
          <tr> 
            <td align="center" height="30" bgcolor="#FFFFFF"> 
			<%if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rsv("vt_name") then%><font color="#666666">&nbsp;
            </font><font color="#666666">
              <input type="submit" name="Submit" value="投票"  style="color: #666666">
              &nbsp;&nbsp; 
              <input name="Submit" type="button"  onClick="MM_openBrWindow('../showvote.asp?vt_id=<%=rsv("vt_id")%>','Vote','status=yes,scrollbars=yes,width=700,height=500')" value="结果" style="color: #666666">
        <%else%>
        您已经了。</font><a href="../showvote.asp?vt_id=<%=rsv("vt_id")%>" target="_blank"><font color="#666666">查看结果</font></a><font color="#666666"> 
        <%end if%>
        </font></td>
          </tr>
		  <font color="#666666">
		  <input name="itemname" type="hidden" value="<%=rsv("vt_name")%>">
          </font>
        </form>
      </table>	  
<%
else
%>
<%
response.write "<div align='center' class='chinese'>当前没有投票主题！</div>"
end if
rsv.close
set rsv=nothing
end sub
%>