📄 index.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="conn.asp"-->
<html>
<head>
<title>【112宿舍~~乱谈】</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="author" content="广西民族学院4坡9栋112宿舍淡国乾,Goking" />
<meta name="description" content="广西民族学院,艺术学院,播音与主持,04级,男生宿舍,4坡9栋" />
<meta name="description" content="广西民族学院艺术学院04级播音与主持艺术专业淡国乾,BLOG," />
<meta name="keywords" content="广西民族学院04级,淡国乾" />
<link rel="stylesheet" type="text/css" href="styl.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body bgcolor="#ffffff" link="#999999" vlink="#999999" leftmargin=0 topmargin=0 marginwidth="0" marginheight="0">
<script language="javascript">
function check(zt)
{
if(zt=="")
{
alert("提交信息不全");
document.de.zt.focus();
return false;
}
}
</script>
<%cz=request.querystring("cz")
id=request.querystring("id")
cz=request.querystring("cz")
zd=request.querystring("zd")
ly=request.form("ly")
ys=request.form("ys")
zt=request.form("zt")
tp=request.form("tp")
page =int(Request.QueryString("page"))
if tp="http://" or len(tp)<6 then
tp=""
else
tp="<img src="+tp+">"
end if
yhm=session("yhm")
set rs=server.createobject("adodb.recordset")
if yhm="" then yhm=request.servervariables("remote_addr")
if cz="exit" then
session("yhm")=""
session("jb")=""
end if
if zt<>"" and cz="tj" then
zt=replace(zt,"'","’")
ly=replace(ly,"'","’")
exec="insert into lt (yhm,zt,ly,zid,zhhf,sj) values ('"+yhm+"','"+ys+zt+"</font>"+"','"+ys+ly+"</font>"+"<br>"+tp+"','s','"+right(cstr(date()),instr(cstr(date()),"-")-1)+ " "+yhm+"','"+cstr(now())+"')"
conn.execute exec
conn.close
response.redirect("index.asp")
end if
if id<>"" and cz="sc" then
exec="delete from lt where id="+id+" or zid='"+id+"'"
conn.execute exec
conn.close
response.redirect("index.asp?page="+cstr(page))
end if
if id<>"" and cz="zd" then
if zd="0" then
zd="1"
else
zd="0"
end if
exec="update lt set zd='"+zd+"' where id="+id+""
conn.execute exec
conn.close
response.redirect("index.asp?page="+cstr(page))
end if%>
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
<tr>
<td width="50%" background="images/bg.gif" valign="top"><img src="images/px1.gif" width="1" height="1" alt="" border="0"></td>
<td valign="top" background="images/bg_left.gif"><img src="images/bg_left.gif" alt="" width="17" height="16" border="0">
</td>
<td valign="top" class="12zi">
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="780"><SCRIPT Language="JavaScript">
<!--
ImageCount = 4; // 圖案的最高張數
img = Math.floor(Math.random() * ImageCount);
document.write("<IMG SRC='images/top/"+img+".jpg'>");
// -->
</SCRIPT></td>
</tr>
<tr>
<td height="40" background="images/fon03.gif" class="12zi" >
<div align="right"><a href="http://112.ygwz.cn/" class="12zi">首页</a><span class="12zi">
<a href="http://www.guilin8.com/" class="12zi">【桂林吧】</a> <a href="http://www.mdjsj.com/" class="12zi">【民大计算机网】</a></span><a href="http://blog.guilin8.com/" class="12zi">【老淡博客】</a><span class="12zi">
<a href="http://525178104.q-zone.qq.com/" class="12zi">【海生空间】</a>
<a href="http://170140855.q-zone.qq.com/" class="12zi">【国乾空间】</a>
</span><a href="http://www.guilin8.com/112/A1.html" class="12zi">【112宿舍简介】</a>
</div></td>
</tr>
</table>
<table width="746" border="0" align="center" cellspacing="0">
<tr>
<td width="789" class="12zi"> </td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td class="12zi">
<%exec="select * from lt where (zid='s' or zid='') order by zd,id desc"
sql="select count(*) as ooo from lt where (zid='s' or zid='')"
rs.open sql,conn,1,1
zts=rs("ooo")
rs.close
sql="select count(*) as ooo from lt where (zid<>'s' and zid<>'')"
rs.open sql,conn,1,1
cts=rs("ooo")
rs.close
if session("yhm")<>"" then
sql="select count(*) as ooo from lt where yhm='"+session("yhm")+"'"
rs.open sql,conn,1,1
zzft=rs("ooo")
rs.close
end if
if cz="zzft" then exec="select * from lt where yhm='"+yhm+"' order by id desc"
rs.open exec,conn,1,1
rs.PageSize =30
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr bgcolor="#A2DAF4" class="12zi">
<td width="4%" height="25" align="center">编号</td>
<td width="5%" height="25" align="center">点击</td>
<td width="6%" height="25" align="center">回贴</td>
<td width="54%" height="25" align="center">标题</td>
<td width="9%" height="25" align="center" class="12zi">作者</td>
<td width="22%" height="25" align="center" class="12zi">最后回复
</tr>
<%For i = 1 To rs.PageSize
If rs.EOF Then Exit For
zt=rs("zt")
zd=rs("zd")
if len(zt)>27 then
hzt=left(zt,len(zt)-7)
hzt=right(hzt,len(hzt)-20)
else
hzt=zt
end if
zt=replace(zt,chr(13),"<br>")
zhhf=rs("zhhf")
zhhf=replace(zhhf," "," ")
zt=replace(zt,"<table>","<table>")
zt=replace(zt,"<tr>","<tr>")
zt=replace(zt,"<td>","<td>")
zt=replace(zt,"</td>","</td>")
zt=replace(zt,"</tr>","</tr>")
zt=replace(zt,"</table>","<table>")
zt=replace(zt,"</body>","<body>")
zt=replace(zt,"</htm>","<htm>")
if len(zt)>50 then zt=left(zt,50)+"..."%>
<tr
<%if hys="1" then
response.write "bgcolor='#A2DAF4'"
hys="0"
else
response.write "bgcolor='#EFF9FE'"
hys="1"
end if%>>
<td width="4%" height="25" align="center" class="12zi"><%=trim(cstr(i))%></td>
<td width="5%" height="25" align="center" class="12zi"><%=trim(cstr(rs("dj")))%></td>
<td width="6%" height="25" align="center" class="12zi"><%=trim(cstr(rs("hf")))%></td>
<td width="54%" height="25" align="center" class="12zi">
<a href="bbs_tj.asp?ztid=<%=rs("id")%>&cz=ck&zt=<%=hzt%>" target="_blank" title="<%=rs("zt")%>"><%=zt%>
<%if zd="0" then%>
<font color="#FF0000">[置顶]</font>
<%end if%>
</a>
<%if session("jb")="admin" then%>
<a href="index.asp?id=<%=rs("id")%>&cz=sc" onClick="javascript:return confirm('确定删除此贴吗?')"><font color="#FF0000">删除</font></a>
<a href="index.asp?id=<%=rs("id")%>&cz=zd&zd=<%=zd%>" onClick="javascript:return confirm('确定置顶此贴吗?')"><font color="#FF0000">置顶</font></a>
<%end if%>
</td>
<td width="9%" height="25" align="center" class="12zi"><%=rs("yhm")%></td>
<td width="22%" height="25" align="center" class="12zi"><%=zhhf%></td>
</tr>
<%rs.movenext
next%>
</table>
<%if zts>0 then%>
<center>
<hr size="0" color="#0099CC" width="80%">
<span class="12zi">共<font color="#FF0000"><%=zts%></font>个主题
<%if session("yhm")<>"" then%>
<a href="index.asp?cz=zzft">您共发<font color="#FF0000"><%=zzft%></font>个</a>
<%end if%>
<a href=#1>发新贴</a></span><br>
<span class="12zi">   第</span>
<%for i=1 to rs.PageCount%>
<a href="index.asp?lx=<%=lx%>&page=<%=i%>">
<%if i=page then
response.write i
else
response.write "["+cstr(i)+"]"
end if%>
</a>
<%next%>
<span class="12zi">页</span>
</center>
<%rs.close
end if%>
<form name="de" method="post" action="index.asp?cz=tj">
<a name=1 class="12zi"></a>
<table width="599" class="12zi">
<tr>
<td> <span class="12zi">标 题
<input type="text" size="50" name="zt" class="tabs" maxlength="200">
</span> </td>
</tr>
<tr>
<td> <span class="12zi">字体颜色</span>
<select name="ys" class="tabs">
<option value="<font color=#000000>" selected style='background-color:000000'>黑██████</option>
<option value="<font color=#FF0000>" style='background-color:FF0000'>红</option>
<option value="<font color=#ff9900>" style='background-color:ff9900'>橙</option>
<option value="<font color=#FFFF00>" style='background-color:FFFF00'>黄</option>
<option value="<font color=#00FF00>" style='background-color:00FF00'>绿</option>
<option value="<font color=#0000FF>" style='background-color:0000FF'>蓝</option>
<option value="<font color=#FF00FF>" style='background-color:FF00FF'>紫</option>
<option value="<font color=#C0C0C0>" style='background-color:C0C0C0'>灰</option>
<option value="<font color=#FFFFFF>" style='background-color:FFFFFF'>白</option>
</select> </td>
</tr>
<tr>
<td> <textarea name="ly" rows="5" cols="95" class="tabs"></textarea>
</td>
</tr>
<tr>
<td><span class="12zi">图片链接:
<input type="text" name="tp" size="50" class="tabs" value="http://">
</span> </td>
</tr>
<tr>
<td align="center" class="12zi">
<%if session("yhm")="" then%>
<span class="12zi">目前您是匿名发贴 </span>
<a href="tb_dl.asp"><img src="images/deng1.gif" width="76" height="43" border="0"></a>
<a href="tb_zc.asp"><img src="images/zhu.gif" width="73" height="42" border="0"></a>
<%else%>
<img src="images/youcan.gif" width="141" height="33">
<a href="index.asp?cz=exit"><img src="images/exit.gif" width="90" height="35" border="0"></a>
<a href="tb_zc.asp?cz=xg"><img src="images/xiugai.gif" width="133" height="41" border="0"></a>
<%end if
if session("jb")="admin" then%>
<a href="tb_gl.asp"><img src="images/admin.gif" width="145" height="44" border="0"></a>
<%end if%>
<br>
<input type="submit" name="Submit" value="提 交" onClick="javascript:return check(zt.value);" class="tabs">
<input type="reset" name="Submit2" value="重 置" class="tabs">
</td>
</tr>
</table>
</form>
<%conn.close
set conn=nothing%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td class="12zi"> </td>
</tr>
</table>
<map name="MapMap">
<area shape="rect" coords="96,94,148,111" href="#">
<area shape="rect" coords="151,94,220,111" href="#">
</map>
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="77" background="images/fon_bot.gif">
<tr>
<td width="780" align="left" valign="bottom">
<table width="756" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="88" height="35" align="left" valign="top"><a href="http://112.YGWZ.CN"><img src="images/112.gif" width="83" height="31" border="0"></a></td>
<td width="643" valign="top" class="12zi"><font color="#333333">友情链接：</font>欢迎各类网站与本站或本人制作的相关网站互链!请做做好相关链接，敬请通知我们进行审查，之后立即通过<br>
<font color="#333333">LOGO图片</font><font color="#666666">：</font>http://112.YGWZ.CN/logo.gif
<font color="#333333">网站链接：</font>http://112.YGWZ.CN</td></tr>
<tr>
<td height="26" colspan="2" class="12zi"><font color="#333333">制作联系人：<a href="http://www.baidu.com/s?wd=%B5%AD%B9%FA%C7%AC&cl=3"><font color="#FFFFFF">淡国乾</font></a>
承接各类网页网站制作 相关个人制作网站：<a href="http://www.guilin8.com" class="12zi"><font color="#FFFFFF">www.guilin8.com</font></a> |
</font><a href="http://www.MDjsj.com"><font color="#FFFFFF">www.MDjsj.com</font></a><font color="#FFFFFF"> </font><font color="#333333">
| </font><a href="http://www.YGWZ.cn"><font color="#FFFFFF">www.YGWZ.cn</font></a><font color="#333333">
</font></td>
</tr>
</table>
</td>
<td width="10"><img src="images/px1.gif" width="1" height="1" alt="" border="0"></td>
</tr>
<tr>
<td><img src="images/px1.gif" width="780" height="1" alt="" border="0"></td>
<td><img src="images/px1.gif" width="1" height="1" alt="" border="0"></td>
</tr>
</table>
</td>
<td valign="bottom" background="images/bg_right.gif"><img src="images/bg_right.gif" alt="" width="17" height="16" border="0"></td>
<td width="50%" background="images/bg.gif" valign="top"><img src="images/px1.gif" width="1" height="1" alt="" border="0"></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="96,94,148,111" href="#">
<area shape="rect" coords="151,94,220,111" href="#">
</map>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -