default.asp

程序介绍： 1、内嵌式投票系统

<%
''''''''''''''''''''''''''''''''''''''''''''
'
'  TXSite / 通用网站系统
'
'  版本    ：v1.8.20
'
'  制作人  ：milp([e-mail])
'
'  版权所有：源码之家(http://www.21tx.com)
'
'  主页地址：http://www.21tx.com
'            http://www.bestnets.net
'            http://www.soucn.com
'
'  技术支持：http://www.21tx.com/bbs
'
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
%>
<!--#include file="base.asp"-->
<%response.write filesArr(6) '调用欢迎信息%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=754>
<TBODY><TR><TD height=5 width="100%"></TD></TR></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width=754>
<tbody><tr>
<td width="2%" bgcolor="#99ccff" valign="top"><img src="images/jiao.gif" width="8" height="8"></td>
<td width="18%" bgcolor="#99ccff" valign="top">
<%
response.write filesArr(7)  '调用首页左边更新
rs.open "select top 1 * from research where isUse order by id desc",conn,1,1
if not(rs.bof and rs.eof) then
%>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=140>
<TR><TD colSpan=2 width=135><FONT color=#ff0000>● 网站调查</FONT><br>
<%=rs("name")%></TD></TR>
<FORM action="research.asp?action=research&id=<%=rs("id")%>" method=post onsubmit="openWindow('','research',400,280)" target=research>
<TR><TD width=80>
<%
dim i
for i=0 to rs("rno")-1
%>
<INPUT name=selected style="BACKGROUND-COLOR: rgb(153,204,255)" type=radio value=<%=i%> checked><%=rs("res"&i+8&"")%><BR>
<%next%>
</TD>
<TD width=55><INPUT style="BACKGROUND-COLOR: rgb(153,204,255)" type=submit value=提交><BR><BR><INPUT onclick="openWindow('/research.asp?action=result&id=<%=rs("id")%>','result',400,280)" style="BACKGROUND-COLOR: rgb(153,204,255)" type=button value=查看></TD></TR></FORM></FORM></TABLE>
<%
end if
rs.close
%>
</td>
<!--End of Left-->
<td width="50%" valign="top" align="center">
<TABLE bgColor=#f3f3f3 border=0 cellPadding=0 cellSpacing=0 width=97% align=center>
<TBODY>
<TR><TD vAlign=top width=1%><IMG height=18 src="images/jiao.gif" width=8></TD>
<TD height=18 width=99%>&nbsp;<IMG height=16 src="images/hand.gif" width=29><b>公 告 栏</b></TD></TR>
<TR><TD bgColor=#000000 colSpan=2 height=1><IMG height=1 src="images/none.gif" width=1></TD></TR>
</TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=3 width=96%>
<TBODY><TR><TD height=4 width=1></TD></TR>
<%rs.open "select top 4 id,name,addate from news where isUse order by id desc",conn,1,1
do while not rs.eof
response.write "<TR><TD><IMG height=10 width=7 src=images/dot.gif> <a href=news.asp?id="&rs("id")&">"&rs("name")&"</a> ("&month(rs("addate"))&"月"&day(rs("addate"))&"日)</TD></TR>"
rs.movenext
loop
rs.close%>
</TBODY></TABLE>
<%
rs.open "select content from sitefiles where name='mainmenu'",conn,1,1
response.write rs("content")
rs.close
%>
</td>
<!--End of center-->
<td width="30%" valign="top">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<TBODY><TR>
<TD bgColor=#99ccff height=20 vAlign=top width=12><IMG height=7 src="images/jiao.gif" width=7></TD>
<TD bgColor=#99ccff width=158>最近更新</TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<TBODY><TR>
<TD bgColor=#99ccff width=1><IMG height=802 src="" width=1></TD>
<TD width=263 valign=top><br><a class=dir><font color=green>下载更新 →</font></a> <a href=f.asp>更多更新</a>
<%
rs.open "select top 12 id,name,addate from main where isUse and showflag=1 order by id desc",conn,1,1
do while not rs.eof
response.write "<BR><FONT color=#ff0000 face=Wingdings>q</FONT> <a class=blanklink href=show.asp?id="&rs("id")&">"&rs("name")&"</a>"
if Day(rs("addate"))=Day(date()) then
response.write "（<font color=red>"&Month(rs("addate"))&"月"&Day(rs("addate"))&"日</font>）"
else
response.write "（"&Month(rs("addate"))&"月"&Day(rs("addate"))&"日）"
end if
rs.movenext
loop
rs.close
response.write "<br><br><a class=dir><font color=green>文章更新 →</font></a> <a href=f.asp>更多更新</a>"
rs.open "select top 10 id,name,addate from main where isUse and showflag=2 order by id desc",conn,1,1
do while not rs.eof
response.write "<BR><FONT color=#ff0000 face=Wingdings>q</FONT> <a class=blanklink href=show.asp?id="&rs("id")&">"&rs("name")&"</a>"
if Day(rs("addate"))=Day(date()) then
response.write "（<font color=red>"&Month(rs("addate"))&"月"&Day(rs("addate"))&"日</font>）"
else
response.write "（"&Month(rs("addate"))&"月"&Day(rs("addate"))&"日）"
end if
rs.movenext
loop
rs.close
response.write "<br><br><a class=dir><font color=green>论坛新帖 →</font></a> <a href=bbs/default.asp>进入论坛</a>"
%>
</TD>
<TD bgColor=#99ccff width=1><IMG src="" width=1></TD></TR>
<TR><TD bgColor=#99ccff width=1 colspan=3><IMG height=1 src="" width=1></TD></TR></TBODY></TABLE>
</td>
<!--End of right-->
</tr>
</tbody>
</table>
<br>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=754>
<TBODY><TR><TD width=15%></TD><TD class=L17 height=25 width="75%" align=center>
首页链接：
<%
rs.open "select name,url,click,addate from friendsite where isUse",conn,1,1
do while not rs.eof
response.write "<a href=friend.asp?url="&rs("url")&" title=""加入时间："&FormatDateTime(rs("addate"),1)&" 点击："&rs("click")&""" target=_blank>"&rs("name")&"</a> "
rs.movenext
loop
rs.close
%>
<a href="mailto:<%=sitemail%>?subject=交换链接">您的位置</a>
<strong>特别感谢Lanny提供网络带宽！</strong><TD width=15%></TD></TD></TR></TBODY></TABLE>
<%response.write filesArr(8)  '调用通用页面底部文件%>
<table width="754" border="0" cellspacing="0" cellpadding="0">
<TR><td align="center"><%=bottomadv%></TD></TR>
<tr><td align=center><script language=javascript src="count.asp?s=1&id=1"></script></td></tr></table></body></html>
<%Call objend()
Function LeftTrue(str,n)
If len(str)<=n/2 Then
LeftTrue=str
Else
Dim TStr
Dim l,t,c
Dim i
l=len(str)
t=l
TStr=""
t=0
for i=1 to l
c=asc(mid(str,i,1))
If c<0 then c=c+65536
If c>255 then
t=t+2
Else
t=t+1
End If
If t>n Then exit for
TStr=TStr&(mid(str,i,1))
next
LeftTrue = TStr
End If
End Function%>