www.gusucode.com > 超文本多用户论坛程序 1.1 > index.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>超文本论坛--免费论坛申请 免费论坛托管服务</title>
</head>
<body>
<!--#include file="bbs/conn_.asp"-->
<!--#include file="bbs/hs_.asp"-->
<table width=100% height=80% border=0><tr><td valign=center>
<div align=center>
<p> <img src="bbs/images/logo.gif" border="0"><font size=2><br>
<font color="#999999"><br><% if request("errs")=empty then
response.write "忘记了我的论坛网址怎么办?"
else
response.write request("errs")
end if%></font><br>
<br><%if request("pds")=empty then%><form method="POST" action="?pds=true">
<input name="T1" type="text" value="请输入用户名">
<input type="submit" name="Submit" value="浏览我的论坛"></form>
<%sqlx="select top 5 * from zwuser where len(ltbh)>0 order by id desc"
set rsx=conn.execute(sqlx)
do while not rsx.eof
response.write "["&rsx("zcsj")&"] <a href=bbs/?ltbh="&rsx("ltbh")&" target=_blank><font size=2 color=blue>用户"&rsx("cnuser")&"的免费论坛上线了!大家多多关照啊!</font></a><p>"
rsx.movenext
loop
rsx.close
set rsx=nothing
%>
<b>选择textbbs的五大理由:</b><br>
<br>
1)专业的服务器托管，长久高速稳定;<br>
<br>
2)本站子论坛采用text优化文本数据库，浏览速度快;<br>
<br>
3)省去你自己安装论坛的烦恼，并有几十种论坛风格供你随意选择;<br>
<br>
4)专业团队提供365x7x24的维护更新;<br>
<br>
5)textbbs是完全免费的!<br>
<br>
</font> <a href="bbs/reg.asp"><img src="bbs/images/apply.gif" border="0"></a><br>
<br>
<br>
<br>
</p>
</div>
</td></tr></table>
<%
end if
if request("pds")="true" then
cnuser=Trim(Request("T1"))
if cnuser=empty then
response.redirect "?errs=请输入用户名!"
response.end
end if
if Fsql(cnuser)=true then
response.redirect "?errs=请不要输入特殊符号!"
response.end
end if
sql="select ltbh from zwuser where cnuser='"&cnuser&"'"
set rs=conn.execute(sql)
if not rs.eof then
response.redirect "bbs/?ltbh="&rs("ltbh")
response.end
rs.close
set rs=nothing
dbcolse
else
response.redirect"?errs=用户[<font color=red>"&cnuser&"</font>]不存在! <a href=bbs/reg.asp?qz="&cnuser&">立即抢注该用户名吧!</a>"
response.end
end if
pds="falsh"
end if
%>
<script src="http://www.wa.sh.cn/count/c.asp?user_name=yiloo"></script>
</body>
</html>