📄 hipbbs.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webname%>--影视留言板</title>
<link href="http://www.hipmovie.com/newmovie/images/CNFNOT.ICO" rel="shortcut icon">
<LINK
href="style/style.css" rel=stylesheet type=text/css>
<script language=javascript src="hipbbs.js"></script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
//-->
</script>
</head>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<body oncontextmenu=self.event.returnValue=false onselectstart="return false">
<%
if session("username")="" then
response.Write("<script laguage=""javascript"">alert('对不起，你还没登陆或登陆超时！');document.URL='index.asp';</script>")
response.End()
end if
dim action,delRS
action=request.QueryString("action")
if action<>"" then
set delRS=server.createobject("adodb.recordset")
delRS.open "select * from filmbbs where bbsID="&request.QueryString("bbsID"),conn,1,3
if action="del" and delRS("userName")=session("username") then
delRS.delete
delRS.update
end if
delRS.close
set delRS=nothing
end if
MaxPerPage=20
dim totalPut,currentpage,TotalPages
if trim(request("page"))<>"" then
currentpage=cint(trim(request("page")))
else
currentpage=1
end if
%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="190" background="images/bbslogo.gif" height="37"> </td>
<td> </td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2" bgcolor="#FBAF0C" height="7"></td>
</tr>
<tr>
<td width="186" rowspan="2" align="center" valign="top" class="bg1" style="border-left: 7px solid #FBAF0C;">
<div align="center">
<!--#include file="webleft.asp"-->
</div></td>
<td bgcolor=EAFFE0 height="21" style="border-right: 7px solid #FBAF0C;">
<table width="100%" border=0 cellspacing=0 cellpadding=0>
<tr>
<td height=20 bgcolor=EAFFE0 class=cla1>
<a href="index.asp" target="_blank">顶级影视</a>>>>影视留言板</td>
</tr>
<tr>
<td><img src=images/clam_01.gif width=570 height=1></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="574" height="800" style="border-right: 7px solid #FBAF0C;" valign="top"><br>
<table width="520" border=0 cellspacing=3 cellpadding=0 align="center">
<tr>
<td height=24 bgcolor=CCF4B9 > <strong><font color=246F00>影视留言
</font>
</strong></td>
</tr>
</table>
<table width="515" border="0" cellspacing="0" cellpadding="2" align="center">
<%
dim bbsRS,filename,i
filename="hipbbs.asp"
set bbsRS=server.createobject("adodb.recordset")
bbsRS.open "select * from filmbbs order by addtime Desc",conn,1,1
if bbsRS.bof and bbsRS.eof then
response.Write("<tr bgcolor=F3F3F3>"&_
"<td align=""center"" height=24><font color=""#FF0000"">对不起，现在暂时没有任何留言！</font></td>"&_
"</tr>")
TotalPages=0
else
totalPut=bbsRS.recordcount
if (totalPut mod MaxPerPage)=0 then
TotalPages=int(totalPut\MaxPerPage)
else
TotalPages=int(totalPut\MaxPerPage)+1
end if
if currentpage>TotalPages then currentpage=TotalPages
if currentpage>=2 then bbsRS.move ((currentpage-1)*MaxPerPage+1)
do while not bbsRS.eof and i<=MaxPerPage
if session("username")=bbsRS("userName") then
response.Write("<tr bgcolor=F3F3F3>"&_
"<td width=""35"" align=""center"" height=22><img src=""images/jiantou.gif"" width=""4"" height=""7""></td>"&_
"<td width=""480"" class=cr5><font color=46A718>"&bbsRS("addtime")&"</font> "&bbsRS("userName")&" <a href='hipbbs.asp?action=modify&bbsID="&bbsRS("bbsID")&"'><img src='images/modify.gif' border=0></a>"&_
" <a href='hipbbs.asp?action=del&bbsID="&bbsRS("bbsID")&"'><img src='images/delete.gif' border=0></a></td></tr>")
else
response.Write("<tr bgcolor=F3F3F3>"&_
"<td width=""35"" align=""center"" height=22><img src=""images/jiantou.gif"" width=""4"" height=""7""></td>"&_
"<td width=""480"" class=cr5><font color=46A718>"&bbsRS("addtime")&"</font> "&bbsRS("userName")&"</td>"&_
"</tr>")
end if
bbscont=bbsRS("bbscont")
bbscont=replace(bbscont,"[:)]"," <img src=facepic/main_1.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:P]"," <img src=facepic/main_2.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:V]"," <img src=facepic/main_3.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[8D]"," <img src=facepic/main_4.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[P~]"," <img src=facepic/main_5.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:(]"," <img src=facepic/main_6.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:X]"," <img src=facepic/main_7.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:O]"," <img src=facepic/main_8.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:A]"," <img src=facepic/main_9.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:>]"," <img src=facepic/main_10.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:D]"," <img src=facepic/main_11.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:!(]"," <img src=facepic/main_12.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:?]"," <img src=facepic/main_13.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[:S]"," <img src=facepic/main_14.gif border=0 align=absmiddle> ")
bbscont=replace(bbscont,"[|)]"," <img src=facepic/main_15.gif border=0 align=absmiddle> ")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -