📄 bbs_tj.asp
字号:
<!--#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" href="style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<script language="javascript">
function check(zt,ly)
{
if(ly==""||zt=="")
{
alert("提交信息不全");
document.de.zt.focus();
return false;
}
}
</script>
<%cz=request.querystring("cz")
id=request.querystring("id")
ztid=request.querystring("ztid")
cz=request.querystring("cz")
ly=request.form("ly")
ys=request.form("ys")
zt=request.form("zt")
if zt="" then zt=request.querystring("zt")
if instr(zt,"RE:")<>0 then
zt="RE:"+replace(zt,"RE:","")
else
zt="RE:"+zt
end if
if zt<>"" then session("yzt")=zt
tp=request.form("tp")
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 ztid<>"" then session("zdid")=ztid
ztid=session("zdid")
if ztid<>"" then
exec="select count(*) as ooo from lt where id="+ztid
rs.open exec,conn,1,1
rsd=rs("ooo")
rs.close
if rsd>0 then
exec="select * from lt where id="+ztid
rs.open exec,conn,1,1
dj=rs("dj")+1
hf=rs("hf")+1
rs.close
else
dj=1
hf=1
end if
''if session("djztid")="" then
exec="update lt set dj="+cstr(dj)+" where id="+ztid
conn.execute exec
''session("djztid")=ztid
''end if
end if
if zt<>"" and ly<>"" 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+"','"+ztid+"','"+right(cstr(date()),instr(cstr(date()),"-"))+ " "+yhm+"','"+cstr(now())+"')"
conn.execute exec
exec="update lt set hf="+cstr(hf)+",zhhf='"+right(cstr(date()),instr(cstr(date()),"-"))+" "+yhm+"' where id="+ztid
''response.write exec
conn.execute exec
conn.close
response.redirect("bbs_tj.asp?zt="+zt+"&ztid="+ztid)
end if
if id<>"" and cz="sc" then
exec="delete from lt where id="+id
conn.execute exec
conn.close
response.redirect("bbs_tj.asp?zt="+zt+"&ztid="+ztid)
end if%>
<body leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19%" bgcolor="#006699"><img src="images/logo.gif" width="199" height="100"></td>
<td width="62%" bgcolor="#ffffff"><img src="images/banner.gif" width="500" height="100"></td>
<td width="19%" bgcolor="#ffffff"> </td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="38%" height="25" bordercolorlight="#000000" bordercolordark="#ffffff" bgcolor="#3399CC">欢迎来到
<a href="index.asp">【112宿舍~~乱谈】</a></td>
<td width="62%" bordercolorlight="#000000" bordercolordark="#ffffff" bgcolor="#3399CC"><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="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td>
<%hys="0"
if ztid<>"" then
exec="select * from lt where id="+ztid
rs.open exec,conn,1,1
zt=replace(rs("zt"),chr(13),"<br>")
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>")
ly=replace(rs("ly"),chr(13),"<br>")
ly=replace(ly,"<table>","<table>")
ly=replace(ly,"<tr>","<tr>")
ly=replace(ly,"<td>","<td>")
ly=replace(ly,"</td>","</td>")
ly=replace(ly,"</tr>","</tr>")
ly=replace(ly,"</table>","<table>")
ly=replace(ly,"</body>","<body>")
ly=replace(ly,"</htm>","<htm>")%>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#EFF9FE">
<tr><td width="3%" align="center"><%="1"%></td><td><b><%=zt%></b></td></tr>
<tr><td width="3%"></td><td><%=ly%></td></tr>
<tr><td width="3%"></td>
<td><b>作者: <%=rs("yhm")%> <%=rs("sj")%></b> </td>
</tr>
</table>
<%exec="select * from lt where zid='"+ztid+"' order by id"
rs.close
rs.open exec,conn,1,1
page =int(Request.QueryString("page"))
rs.PageSize =15
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page
For i = 1 To rs.PageSize
If rs.EOF Then Exit For
ysj="1"
zt=replace(rs("zt"),chr(13),"<br>")
hzt=left(zt,len(zt)-7)
hzt=right(hzt,len(hzt)-20)
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>")
ly=replace(rs("ly"),chr(13),"<br>")
ly=replace(ly,"<table>","<table>")
ly=replace(ly,"<tr>","<tr>")
ly=replace(ly,"<td>","<td>")
ly=replace(ly,"</td>","</td>")
ly=replace(ly,"</tr>","</tr>")
ly=replace(ly,"</table>","<table>")
ly=replace(ly,"</body>","<body>")
ly=replace(ly,"</htm>","<htm>")%>
<table width="100%" border="0" cellpadding="1" cellspacing="1"
<%if hys="1" then
response.write "bgcolor='#EFF9FE'"
hys="0"
else
response.write "bgcolor='#A2DAF4'"
hys="1"
end if%>>
<tr><td width="3%" align="center"><%=i+1%></td><td><b><%=zt%></b></td></tr>
<tr><td width="3%"></td><td><%=ly%></td></tr>
<tr><td width="3%"></td>
<td><b>作者: <%=rs("yhm")%> <%=rs("sj")%></b>
<%if session("jb")="admin" then%>
<font color="#FF0000"> <a href="index.asp?id=<%=rs("id")%>&cz=sc" onClick="javascript:return confirm('确定删除此贴吗?')">删除</a></font>
<%end if%>
</td>
</tr>
</table>
<%rs.movenext
next
if ysj="1" then%>
<center>
第
<%for i=1 to rs.PageCount%>
<a href="index.asp?page=<%=i%>">
<%
if i=page then
response.write i
else
response.write "["+cstr(i)+"]"
end if
%>
</a>
<%next%>
页<hr size="0" color="#0099CC">
</center>
<%end if
rs.close
end if%>
<form name="de" method="post" action="bbs_tj.asp?cz=tj">
<a name=1></a>
<table>
<tr>
<td> 标题：
<input type="text" size="50" name="zt" class="tab" maxlength="200" value="<%=session("yzt")%>">
</td>
</tr>
<tr>
<td> 字体颜色:
<select name="ys" class="tab">
<option value="<font color=#000000>">Black</option>
<option value="<font color=#FF0000>">Red</option>
<option value="<font color=#FFFF00>">Yellow</option>
<option value="<font color=#00FF00>">Green</option>
<option value="<font color=#ff9900>">Orange</option>
<option value="<font color=#0000FF>">Blue</option>
<option value="<font color=#FF00FF>">Purple</option>
<option value="<font color=#C0C0C0>">Gray</option>
<option value="<font color=#FFFFFF>">White</option>
</select>
</td>
</tr>
<tr>
<td>
<textarea name="ly" rows="5" cols="95" class="tab"></textarea>
</td>
</tr>
<tr>
<td>图片链接:
<input type="text" name="tp" value="http://" size="50" class="tab">
</td>
</tr>
<tr>
<td align="center">
<input type="submit" name="Submit" value="提交" onClick="javascript:return check(zt.value,ly.value);" class="tab">
<input type="reset" name="Submit2" value="清除" class="tab">
</td>
</tr>
</table>
</form>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -