📄 system.asp
字号:
<!--#include file="conn.asp" -->
<%
'=====================================================
'功能：用户登录面板
'参数：无
'=====================================================
sub userlogin()
if session("loginname")="" or session("servernum")="" then
dim strlogin
strlogin=strlogin & "<form name='loginform' method='post' action='loginuser.asp' onsubmit='return checklogin();'>"
strlogin=strlogin & "<li>用户名：<input name='loginname' type='text' class='inputs' id='loginname' size='10' maxlength='50'></li>"
strlogin=strlogin & "<li>密 码：<input name='loginpass' type='password' id='loginpass' class='inputs' size='9' maxlength='50'></li>"
strlogin=strlogin & "<li><input name='Submit' type='submit' class='buton' value='登录'> <input name='Submit2' type='reset' class='buton' value='重置' ></li>"
if UserRegshow="yes" then
strlogin=strlogin & "<li><a href='regread.asp' target='_blank'>新用户注册</a> <a href='LoginSeaPas.asp' target='_blank'>找回密码</a></li>"
end if
strlogin=strlogin & "</form>"
response.write strlogin
%>
<script language=javascript>
function checklogin()
{
if(window.document.loginform.loginname.value=="")
{
alert("用户名不能为空！");
return false;
}
if (window.document.loginform.loginpass.value=="")
{
alert("密码不能为空！");
return false;
}
}
</script>
<%else
response.write"<div align='center'class='voteshow'>欢迎<span class='txt06'>"&session("loginname")&"</span>登录<br></div>"
select case session("userlevel")
case 1
response.write"<div align='center'class='votelist'>你的等级为：注册用户<br></div>"
case 2
response.write"<div align='center'class='votelist'>你的等级为：普通会员<br></div>"
case 3
response.write"<div align='center'class='votelist'>你的等级为：中级会员<br></div>"
case 4
response.write"<div align='center'class='votelist'>你的等级为：高级会员<br></div>"
case 5
response.write"<div align='center'class='votelist'>你的等级为：特级会员<br></div>"
end select
select case session("workerclass")
case 1
response.write"<div align='center'class='votelist'>作家等级：高级作家<br></div>"
case 2
response.write"<div align='center'class='votelist'>作家等级：中级作家<br></div>"
case 3
response.write"<div align='center'class='votelist'>作家等级：初级作家<br></div>"
case else
response.write"<div align='center'class='votelist'>请多发表文章，成为本站作家<br></div>"
end select
response.write"<div align='center'class='votelist'>你可以进行如下的操作:<br></div>"
response.write"<div align='center'class='votelist'>"
if UserArtAddshow="yes" then
response.write"<li><a href='UserArtAdd.asp' target='_blank'>添加文章</a> "
end if
if UserArtManshow="yes" then
response.write"<a href='UserArtMan.asp' target='_blank'>文章管理</a></li>"
end if
if BbsShowshow="yes" then
response.write"<li><a href='BbsAdd.asp' target='_blank'>添加主题</a> "
end if
if FriendLinkshow="yes" then
response.write"<a href='FriendLinkAdd.asp' target='_blank'>申请链接</a></li>"
end if
response.write "<li><a href='loginmodinfo.asp' target='_blank'>修改信息</a> "
response.write "<a href='loginout.asp'>注销登录</a></li></div>"
end if
end sub
'=========================================================
'功能：BBS主题显示(1：最新，2：最热，3：精华；主题数；标题长度）
'参数：k---显示类型 1：最新 2：最热 3：精华；i---主题数；j---标题长度
'=========================================================
sub BBShot(k,i,j)
dim rshot,bbshot
if k=2 then
set rshot=conn.Execute("select * from userbook where passed=true order by visitetimes desc")
else if k=3 then
set rshot=conn.Execute("Select * from userbook where passed=true order by retimes desc")
else
set rshot=conn.Execute("Select * from userbook where passed=true order by bookid desc")
end if
end if
if rshot.bof or rshot.eof then
response.write"<li>还没有相关贴子</li>"
else
for bbshot=1 to i
if rshot.eof then
exit for
end if
if k=2 or k=3 then
response.write"<li><img src='images/bbshot1.gif' width='8' height='8'>"
else
response.write"<li><img src='images/bbsnew.gif' width='8' height='8'>"
end if
if len(rshot("title"))>=j then
response.write"<a href='Bbsshow.asp?bookid="&rshot("bookid")&"&bbsclass="&rshot("bbsclass")&"' target='_blank' title='标题：" & rshot("title") & vbcrlf & "作者：" & rshot("usid") & vbcrlf & "添加时间：" & rshot("datetime") & vbcrlf & "点击数：" & rshot("visitetimes") & vbcrlf & "回复："& rshot("retimes") &"'>"&left(rshot("title"),j)&"…<a>["&month(rshot("datetime"))&"-"&day(rshot("datetime"))&"]</li>"
else
response.write"<a href='Bbsshow.asp?bookid="&rshot("bookid")&"&bbsclass="&rshot("bbsclass")&"' target='_blank' title='标题：" & rshot("title") & vbcrlf & "作者：" & rshot("usid") & vbcrlf & "添加时间：" & rshot("datetime") & vbcrlf & "点击数：" & rshot("visitetimes") & vbcrlf & "回复："& rshot("retimes") & "'>"&rshot("title")&"<a>["&month(rshot("datetime"))&"-"&day(rshot("datetime"))&"]</li>"
end if
rshot.movenext
next
end if
'response.write"<div align='right'><a href='bbs.asp' title='更多讨论主题'>more...</a></div>"
rshot.close
set rshot=nothing
end sub
'=============================================================
'功能：BBS栏目显示
'参数：i---栏目数
'=============================================================
sub BBSclassshow(i)
dim rsre,bbsre
set rsre=conn.Execute("Select * From bbsclass")
if rsre.bof or rsre.eof then
response.write"<li>栏目正在建设中...</li>"
else
for bbsre=1 to i
if rsre.eof then
exit for
end if
response.write"<li><a href='BbsClaShow.asp?bbsclass="&rsre("bbsclass")&"'>"&rsre("bbsclass")&"</a></li>"
rsre.movenext
next
end if
rsre.close
set rsre=nothing
end sub
'==================================================
'功能：bbs搜索（暂时不用）
'参数：i---显示方式 1：直向显示 2：横向显示
'==================================================
sub bbssearch(i)
dim srcbbssearch
srcbbssearch=srcbbssearch &"<form name='bbs' method='post' action='BbsSearch.asp' onsubmit='return checksearch();'>"
if i=1 then
srcbbssearch=srcbbssearch &"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
srcbbssearch=srcbbssearch &"<tr><td align='center'>搜索BBS</td></tr> <tr><td height='30'>关键字<input name='NewsKey' type='text' class='inputs' id='NewsKey' size='16' maxlength='20'></td></tr>"
srcbbssearch=srcbbssearch &"<tr><td height='30' align='center'><select name='searchbbs' class='inputs' id='searchbbs'>"
srcbbssearch=srcbbssearch &"<option value=''>请选择搜索内容</option>"
srcbbssearch=srcbbssearch &"<option value='search1'>主 题 </option>"
srcbbssearch=srcbbssearch &"<option value='search2'>内 容 </option>"
srcbbssearch=srcbbssearch &"</select></td></tr>"
srcbbssearch=srcbbssearch &"<tr><td height='30' align='center'><input name='Submit' type='submit' class='buton' value='搜 索'></td>"
srcbbssearch=srcbbssearch &"</tr></table>"
else if i=2 then
srcbbssearch=srcbbssearch &"<li>关键字 <input name='NewsKey' type='text' class='inputs' id='NewsKey' size='12' maxlength='20'> <br><br><select name='searchbbs' class='buton' id='searchbbs'>"
srcbbssearch=srcbbssearch &"<option value=''>搜索内容</option>"
srcbbssearch=srcbbssearch &"<option value='search1'>主 题 </option>"
srcbbssearch=srcbbssearch &"<option value='search2'>内 容 </option>"
srcbbssearch=srcbbssearch &"</select>"
srcbbssearch=srcbbssearch &"<input name='Submit' type='submit' class='buton' value='搜 索'></li>"
end if
end if
srcbbssearch=srcbbssearch &"</form>"
response.write srcbbssearch
end sub
'=============================================================
'功能：友情链接
'参数：j---显示方式 1：文字 2：logo图片；myfriendnum---显示个数
'=============================================================
sub mylink(j,myfriendnum)
dim rsmylink,sqlmylink,h
set rsmylink=server.createObject("ADODB.Recordset")
sqlmylink="select * from FriendLink where ispass=true"
if j=1 then
sqlmylink=sqlmylink & " and linktype=1"
else if j=2 then
sqlmylink=sqlmylink & " and linktype=2 and logoUrl<>'' "
end if
end if
sqlmylink=sqlmylink & " order by ID desc"
rsmylink.open sqlmylink,conn,1,1
if rsmylink.eof or rsmylink.bof then
response.write"<li>还没有友情链接</li>"
else
for h=1 to myfriendnum
if rsmylink.eof then
exit for
end if
if j=1 then
response.write"<li><a href='"&rsmylink("siteurl")&"' target='_blank'>"&rsmylink("sitename")&"</a></li>"
else if j=2 then
response.write"<li><a href='"&rsmylink("siteurl")&"' target='_blank'><img src='"&rsmylink("logourl")&"' width='80' height='40' alt='"&rsmylink("sitename")&"' border='0'></a></li>"
end if
end if
rsmylink.movenext
next
end if
rsmylink.close
set rsmylink=nothing
end sub
'推荐好站
sub mygoodlink(i,j,mygoodlinknum)
dim rsmygoodlink,sqlmygoodlink,h
set rsmygoodlink=server.createObject("ADODB.Recordset")
sqlmygoodlink="select * from FriendLink where ispass=true"
'for i=1 to 2
if i=1 then
sqlmygoodlink=sqlmygoodlink & " and isgood=true"
sqlmygoodlink=sqlmygoodlink & " and linktype="&j&""
sqlmygoodlink=sqlmygoodlink & " order by ID desc"
rsmygoodlink.open sqlmygoodlink,conn,1,1
if rsmygoodlink.eof or rsmygoodlink.bof then
response.write"还没有网站可推荐"
else
for h=1 to mygoodlinknum
if rsmygoodlink.eof then
exit for
end if
if j=1 then
response.write"<a href='"&rsmygoodlink("siteurl")&"' target='_blank'>"&rsmygoodlink("sitename")&"</a>"
else
response.write"<a href='"&rsmygoodlink("siteurl")&"' target='_blank'><img src='"&rsmygoodlink("logourl")&"' width='80' height='40' alt='"&rsmygoodlink("sitename")&"' border='0'></a><br>"
end if
rsmygoodlink.movenext
next
end if
else
response.write"?Yê±??óDo?í?"
end if
rsmygoodlink.close
set rsmygoodlink=nothing
end sub
'====================================================================
'功能：广告显示
'参数：i---显示个数；showsitenum---显示位置 1：顶部，2：开头，3：中部，4：底部，5：弹出广告，6：左侧，7：右侧；
'inpage---显示的页面 1:文章页面 2：bbs 3：成长物语
'=====================================================================
sub advershow(i,showsitenum,inpape)
dim rsadver,k
set rsadver=conn.execute("select * from advertisement where isnew=true and showsite="&showsitenum&" and inpape="&inpape&"")
if rsadver.eof or rsadver.bof then
response.write"暂时没有广告"
else
for k=1 to i
if rsadver.eof then
exit for
end if
if rsadver("isflash")=1 then
dim strflash
strflash="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='"&rsadver("imgwidth")&"' height='"&rsadver("imgheight")&"' align='absbottom'>"
strflash=strflash & "<param name='movie' value='"&rsadver("imgurl")&"'>"
strflash=strflash & "<param name='quality' value='high'>"
strflash=strflash & "<embed src='"&rsadver("imgurl")&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='"&rsadver("imgwidth")&"' height='"&rsadver("imgheight")&"'></embed>"
strflash=strflash & "</object>"
response.write strflash
else
response.write"<a href='"&rsadver("siteurl")&"' target='_blank'><img src='"&rsadver("imgurl")&"' width='"&rsadver("imgwidth")&"' height='"&rsadver("imgheight")&"' alt='"&rsadver("sitename")&"' border='0'></a><br>"
end if
rsadver.movenext
next
end if
rsadver.close
set rsadver=nothing
end sub
'==============================================================
'功能：本站搜索
'参数：i---显示方式 1:直向显示 2：横向显示
'==============================================================
sub ArtSearch(i)
dim strsearch
strsearch=" <form name='artform' method='post' action='ArtSearch.asp' onsubmit='return artsearch();'>"
if i=1 then
strsearch=strsearch &" <li>关键字：<input name='artkey' type='text' class='inputs' size='10' maxlength='50'><br>"
strsearch=strsearch &" <br><select name='selsearch' class='selectstyle'><option value='article'>文章</option><option value='bbs'>论坛</option></select>"
strsearch=strsearch &" <select name='artsearch' class='selectstyle'><option value='arttitle'>标题</option><option value='artcontent'>内容</option><option value='artauthor'>作者</option></select>"
strsearch=strsearch &" <input name='Submit' class='buton' type='submit' value='搜索'></li>"
else
strsearch=strsearch & "<li>本站搜索：<input name='artkey' class='inputs' type='text' size='10' maxlength='50' value='关键字'></li><li><select name='selsearch' class='buton'><option value='article'>文章</option><option value='bbs'>论坛</option></select></li><li><select name='artsearch' class='buton'><option value='arttitle'>标题</option><option value='artcontent'>内容</option><option value='artauthor'>作者</option></select></li><li><input name='Submit' type='submit' class='buton' value='搜索'></li>"
end if
strsearch=strsearch &" </form>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -