tylogin.asp

asp构建网站bbs.采用B/S架构

<%
'##################################################################
'# 首页调用论坛登陆 插件 for 6KSU1.1[痞子.NET]版
'# 调用方法：<script src='tylogin.asp'></script>
'# 6KSU1.1[痞子NET]版
'# 主页 http://d9pd.51.net
'# 论坛 http://jwclub.126.com http://jwclub.9126.com[戒网俱乐部]
'# 我的QQ:283067 Email:[e-mail]
'# 如有技术问题，请到6kbbs官方论坛一起讨论 http://6k.2ya.com
'# 关于此hack版的问题可以到 http://jwclub.9126.com 中讨论 
'##################################################################
%>
<!--#include file="inc.asp"-->
<!--#include file="config.asp"-->
document.write("<%if lgname="" then
response.write"<table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=100% ><tr><form method=POST action="&bbsurl&"/bbselse.asp><td width=100% >"
response.write"<p align='center' style='margin-top: 5; margin-bottom: 5'>游客您好，请先登陆！</p>"
response.write"<p align='center' style='margin-top: 5; margin-bottom: 5'>用户名：<input size='10' name='lgname'><br>密&nbsp; 码：<input type='password' size='10' value name='lgpwd'></p>"
response.write"<p align='center' style='margin-top: 5; margin-bottom: 5'>状&nbsp; 态：<select size=1 name=lgtype style='font-size: 9pt'><option selected value=1>正常登陆</option><option value=2>隐身登陆</option></select>"
response.write"<p align='center' style='margin-top: 5; margin-bottom: 5'>Cookies：<select style='FONT-SIZE: 9pt' size='1' name='cook'><option value='j0' selected>不保存</option><option value='j1'>保存一天</option><option value='j30'>保存一月</option><option value='j365'>保存一年</option></select></p>"
response.write"<p align='center' style='margin-top: 5; margin-bottom: 5'><input type='submit' value='登陆' name='b1'> <input onclick=javascript:window.open('"&bbsurl&"/zhuce.asp') type='reset' value='注册' name='b2'> <INPUT onclick=javascript:window.open('"&bbsurl&"/index.asp') type='reset' value='参观' name='b3'></td></form></tr></table>"
else
set pic=myconn.execute("select qian,meili,jingyan,bbsnum from user where name='"&lgname&"'")
q1=pic(0)
m1=pic(1)
j1=pic(2)
ties=pic(3)
sqltype="lg"
%>
<!--#include file="upji.asp"-->
<%
response.write"<p align='center'>欢迎您：<a target='_blank' href='"&bbsurl&"/userinfo.asp?name="&kbbs(lgname)&"'><b><u>"&kbbs(lgname)&"</u></b></a><div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse'><tr><td><p align='left' style='margin-top: 10'>□帖数："&ties&" 帖<br>□金钱："&q1&" 两<br>□魅力："&m1&" 点<br>□经验："&j1&" 点<br>□等级："&dj&"["&dd&"]"
set pic=nothing
mailno=myconn.execute("select count(name) from hand where tname='"&lgname&"'")(0)
response.write"<br>□<a href='"&bbsurl&"/bbsmail.asp?id=0' target='_blank'>留言板："&mailno&"/"
mailnewno=myconn.execute("select count(tname) from hand where tname='"&lgname&"' and isnew='0'")(0)
if mailnewno>0 then
response.write"<font color=red>"&mailnewno&"(新)</font>"
else
response.write""
response.write mailnewno
response.write"(新)"
end if
set mailnewno=nothing
response.write"</a><br>□<a href='"&bbsurl&"/elselist.asp?action=withmetop' target='_blank'>我参与的主题</a><br>□状态：<font color='#FF00FF'><b>"&lgtext2&"</b></font><br>□<a href="&bbsurl&" target='_blank'>进入论坛</a></p></td></tr></table></center></div>"
end if
%>");