📄 up.asp

📁 asp构建网站bbs.采用B/S架构
💻 ASP
字号:

<%response.buffer=true%>
<!--#include file="inc.asp"-->
<%
time1=timer()
response.write"<title>"&tl&"</title>"
%>
<!--#include file="js.asp"-->
<SCRIPT src=menu.js></SCRIPT>
<div align="center">
  <center>
  <table border="1" bordercolor="#28A428">

<td width="755" height="102" bordercolor="#FFFFFF" align="center" background="pic/upbeijing.jpg" valign="top">
  <p align="left">　</p>
</td>
</table>
<span style="left: 12; position: absolute; top: 14"><font size="2">
<object codeBase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" height="101" width="666" border="0" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
  <param NAME="_cx" VALUE="19817">
  <param NAME="_cy" VALUE="10583">
  <param NAME="FlashVars" VALUE="19817">
  <param NAME="Movie" VALUE="pic/9.swf">
  <param NAME="Src" VALUE="pic/9.swf">
  <param NAME="WMode" VALUE="Transparent">
  <param NAME="Play" VALUE="-1">
  <param NAME="Loop" VALUE="-1">
  <param NAME="Quality" VALUE="AutoHigh">
  <param NAME="SAlign" VALUE>
  <param NAME="Menu" VALUE="0">
  <param NAME="Base" VALUE>
  <param NAME="AllowScriptAccess" VALUE="always">
  <param NAME="Scale" VALUE="ExactFit">
  <param NAME="DeviceFont" VALUE="0">
  <param NAME="EmbedMovie" VALUE="0">
  <param NAME="BGColor" VALUE>
  <param NAME="SWRemote" VALUE><embed src="images/main.swf" width="750" height="150" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent">
</object>
</font></span>
</div>
<SCRIPT language=JavaScript>
var userhelp= '<img src=pic/fl.gif> <%=liu%><br><img src=pic/fl.gif> <a href=myinfo.asp>修改资料</a><br><img src=pic/fl.gif> <a href=elselist.asp?action=mytop>我发表的帖子</a><br><img src=pic/fl.gif> <a href=elselist.asp?action=withmetop>我参与的帖子</a><br><img src=pic/fl.gif> IP：<%=ip%></a>'
var stylelist= '<img src=pic/fl.gif> <a href=http://www.5yweb.com/mulu/yuxiao617/default.htm>返回首页</a><img src=pic/fl.gif> <a href=http://www.5yweb.com/mulu/yuxiao617/book/index.asp>文学频道</a><img src=pic/fl.gif> <a href=http://www.5yweb.com/mulu/yuxiao617/alumni/index.asp>校友录</a><img src=pic/fl.gif> <a href=http://388430.bliao.com/>聊天室</a><img src=pic/fl.gif> <a href=http://yuxiao617.card.yinsha.com>贺卡站</a>'</SCRIPT>
<%
response.write"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'><DIV id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden;  POSITION: absolute;'></DIV><body onmousemove=HideMenu() topmargin=0 background='pic/"&sp&"bg.gif'><link rel=stylesheet type=text/css href=css.css><style><!--body{SCROLLBAR-FACE-COLOR:"&c1&";SCROLLBAR-HIGHLIGHT-COLOR: "&c2&"; SCROLLBAR-SHADOW-COLOR:"&c1&"; SCROLLBAR-3DLIGHT-COLOR: "&c1&"; SCROLLBAR-ARROW-COLOR:"&c2&"; SCROLLBAR-TRACK-COLOR:"&c2&"; FONT-FAMILY: Verdana; SCROLLBAR-DARKSHADOW-COLOR:"&c1&"}a:hover{text-decoration:none;color:"&c1&"}TD.TableBody {BACKGROUND-COLOR: "&c2&"}.tableBorder {BORDER-RIGHT: 1px; BORDER-TOP: 1px; BORDER-LEFT: 1px; WIDTH: 80%; BORDER-BOTTOM: 1px; BACKGROUND-COLOR: "&c1&"}--></style>"&_
"<div><center><table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% ><tr><td width=100% height=4 bgcolor="&c1&"></td></tr><tr><td style='border: 1px solid "&c1&"' width=100% height=25 bgcolor="&c2&" background=pic/"&sp&"1.gif>&nbsp; "&lgtext&"<a href=login.asp>"&lolo&"</a><img border=0 src=pic/"&sp&"2.gif>"

if lgname="" then
response.write"<a href=zhuce.asp>会员注册</a><img border=0 src=pic/"&sp&"2.gif>"
end if

response.write"<a onmouseover=ShowMenu(bbsmenu,90)><SPAN style='CURSOR: hand; color: #000000'>论坛菜单</span></a><img border=0 src=pic/"&sp&"2.gif><a onmouseover=ShowMenu(bbsyl,90)><SPAN style='CURSOR: hand; color: #000000'>娱乐中心</span></a><img border=0 src=pic/"&sp&"2.gif>"&info&""&ex&""&gl&""&tishi&"</td></tr></table></center></div>"&_
"<div><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% ><tr><td width=100% ><p style='margin: 7'>"&topinfo&"</td></tr></table></center></div>"
response.write"<div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% height=25 background=pic/4.gif><tr><td style='border: 1px solid "&c1&"' width=100% >&nbsp;<img border=0 src=pic/gonggao.gif align=absmiddle><b>你的位置：</b><a href=index.asp>"&tl&"</a>"
if bd<>"" then
set wei=myconn.execute("select bdname,pass,type from bdinfo where bn="&bd&" and key<>'0'")
bdtype=wei("type")

canre="no"
sub getadm()
set cjbz1=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='"&bd&"'")
if not cjbz1.eof then
canre="yes"
end if
set cjbz1=nothing
end sub

function bdlogin(nt)
if bdtype=0 then
exit function
else
select case bdtype
case"1"
if lgname="" then
userin="no" 
noyes="进 入 失 败 ！"
mes="<font color="&c1&"><b>你不能成功的进入该版面，可能存在以下问题：</b></font><br>● 该版面为只有注册会员可以进入！<br> ● 你还没有<a href=login.asp>登陆</a>！<br><br>"
end if
case"2"
call getadm()
if nt=1 then
exit function
else
if canre="yes" or admin=3 then
exit function
else
noyes="操 作 失 败 ！"
mes="<font color="&c1&"><b>你不能"&canre&"成功的操作该版面，可能存在以下问题：</b></font><br>● 该版面为只读版面，只有管理员或斑竹能够操作！<br><br>"
userin="no" 
end if
end if
case"3"
if isnull(pass) or pass="" then
userin="ok"
else
user=split(pass,",")
for i = 0 to ubound(user)
if lgname=trim(user(i)) and lgname<>"" then
userin="ok"
exit for
else
userin="no"
end if
next
end if
if userin="no" then
noyes="进 入 失 败 ！"
mes="<font color="&c1&"><b>你不能成功的进入该版面，可能存在以下问题：</b></font><br>● 该版面为认证论坛，你还没有得版主的认证！<br> ● 你还没有<a href=login.asp>登陆</a>！<br><br>"
else
end if
end select
if userin="no" then%><br><!--#include file="mes.asp"--><br><!--#include file="down.asp"--><%
response.end
end if
end if
end function


pass=wei("pass")
response.write" → <a href=list.asp?bd="&bd&">"
wz=kbbs(wei("bdname"))
response.write""&wz&"</a>"
end if
set wei=nothing
if instr(Request("url"),"recycle.asp")>0  then
response.write" → <a href='recycle.asp?totable="&autotable&"'>回 收 站</a>"
end if
if instr(Request("url"),"goodlist.asp")>0  then
response.write" → <a href='goodlist.asp?bd="&bd&"'>本版精华</a>"
end if
if instr(Request("url"),"bbsmail.asp")>0 or instr(Request("url"),"mailcon.asp")>0 then
response.write" → <a href='bbsmail.asp?id=0'>个人留言板</a>"
else
if instr(Request("url"),"show.asp")>0 then
set w1=myconn.execute("select*from bbs"&totable&" where id="&id&"")
if w1.eof then
response.write"</td></tr></table></center></div>"
call wrongid()
response.end
end if
wzhuti=kbbs(w1("zhuti"))
wbody=w1("body")
wname=w1("name")
wriqi=w1("riqi")
wface=w1("face")
ggtype=w1("gonggao")
bbtype=w1("type")
isvote=w1("isvote")
bnum=w1("bnum")
qbbsid=w1("bbsid")
ips=w1("ips")
if isvote=2 then wface="vote"
if bbtype=4 then wface="lock"
if bbtype=1 then wface="jing"
if ggtype=3 then wface="top"
if ggtype=5 then wface="alltop"
whits=w1("hits")
response.write" → 浏览帖子："&LeftTrue(wzhuti,44)&""
set w1=nothing
end if
end if
response.write"</td></tr></table></center></div>"
%></center>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -