📄 class_index.asp
字号:
<%
on_web="首页"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<!--
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息: 计8工作窒制作 http://j8pc.126.com/
'
'海军第一职业技术学校 J8工作室
' 作者：陈峰
' 网名：浪の小石 ,湛江.小浪石
' QQ:1972717
'email:lzxs3000@etang.com
'
'''''''''''''''''''''''''''''''''''''''''''''''''
-->
<head>
<SCRIPT src="../js/win_js.js"></SCRIPT>
</HEAD>
<!--#include file="conn.asp" -->
<!--#include file="session.asp" -->
<!--#include file="../function/function.asp" -->
<!--#include file="../function/ubb.asp" -->
<!--#include file="../templet/mon.asp" -->
<!--#include file="../templet/top.asp" -->
<%
web_id="../language/"&l_id
web_id=web_id&"/left_right.asp"
call include(web_id)
RESPONSE.WRITE "<center><table border=0 cellpadding=0 cellspacing=0>"
RESPONSE.WRITE "<tr><td valign=top align=center width=13% >"
%>
<!--#include file="../templet/left.asp" -->
<%
RESPONSE.WRITE "</td><td valign=top align=center width=1> </td>"
RESPONSE.WRITE "<td valign=top align=center width=100% >"
y=L_CLASSi_gg
Mon(y)
RESPONSE.WRITE "<center><SCRIPT>SL_open(403,60);</SCRIPT>"
new_msg=myinfo
RESPONSE.WRITE ubbcode(new_msg)
RESPONSE.WRITE "<SCRIPT>SL_close()</SCRIPT>"
RESPONSE.WRITE(mon_foot)
y=L_CLASSi_NewMsg
Mon(y)
RESPONSE.WRITE "<center><SCRIPT>SL_open(403,515);</SCRIPT>"
set new_msg=server.CreateObject("adodb.recordset")
msg_sql="select * from class_msg where g_id='"&session_cookie_gid&"' order by msg_time desc"
new_msg.open msg_sql,conn,1,1
if new_msg.RecordCount<new_msgpage then
new_msgpage=new_msg.RecordCount
end if
do while new_msg_i<=(new_msgpage - 1)
new_msg_i=new_msg_i+1
RESPONSE.WRITE "<table cellSpacing=0 cellPadding=0 border=0 width=100% ><tr>"
RESPONSE.WRITE "<TD width=14><IMG height=8 src='"&web_background&"/top_l.gif' width=14>"
RESPONSE.WRITE "</TD><TD background="&web_background&"/top_c.gif></TD>"
RESPONSE.WRITE "<TD width=16><IMG height=8 src='"&web_background&"/top_r.gif' width=16>"
RESPONSE.WRITE "</TD></TR><TR>"
RESPONSE.WRITE "<TD vAlign=top width=14 background="&web_background&"/center_l.gif>"
RESPONSE.WRITE "</TD><td bgColor=#fffff1> "
RESPONSE.WRITE "<IMG src="&web_background&"/sign.gif width=18 height=18 border=0>"
RESPONSE.WRITE new_msg("msg_time") &" <FONT color=#1038a8> "
%>
<a href="#" onClick="javascript:window.open('member.asp?id=<%=new_msg("msg_user")%> ','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">
<%
RESPONSE.WRITE new_msg("msg_user")
RESPONSE.WRITE "</a></FONT><br>"&ubbcode(new_msg("msg_text"))
RESPONSE.WRITE "<br><img border=0 height=12 src="&web_background&"/signature.gif width=300>"
RESPONSE.WRITE "</td><TD vAlign=top width=16 background="&web_background&"/center_r.gif>"
RESPONSE.WRITE "<IMG height=8 src='"&web_background&"/top_r2.gif' width=16></TD>"
RESPONSE.WRITE "</TR><TR><TD vAlign=top width=14>"
RESPONSE.WRITE "<IMG height=42 src='"&web_background&"/foot_l1.gif' width=14></TD>"
RESPONSE.WRITE "<TD background="&web_background&"/foot_c.gif></TD>"
RESPONSE.WRITE "<TD align=right width=16>"
RESPONSE.WRITE "<IMG height=42 src='"&web_background&"/foot_r.gif' width=16></TD>"
RESPONSE.WRITE "</TR></TABLE>"
new_msg.movenext
loop
new_msg.close
set new_msg=nothing
RESPONSE.WRITE "<SCRIPT>SL_close()</SCRIPT>"
RESPONSE.WRITE(mon_foot)
RESPONSE.WRITE "</td><td valign=top align=center width=3> </td>"
RESPONSE.WRITE "<td valign=top align=center width=13% >"
%>
<!--#include file="../templet/right.asp" -->
<%
RESPONSE.WRITE "</td></tr><tr><td colspan=6 height=2></td></tr>"
RESPONSE.WRITE "<tr><td colspan=6 height=1>"
y=L_CLASSi_NewPhoto
call mon(y)
RESPONSE.WRITE "<table border=0 cellpadding=2 width=100% ><tr>"
p_ii=0
photo_sql="select top " & new_photopage & " * from photo where g_id='"&session_cookie_gid&"' order by phototime desc"
set new_photo=conn.execute(photo_sql)
if not new_photo.eof then
i=1
Do while not new_photo.eof
if i>4 then
RESPONSE.WRITE "</tr><tr>"
i=1
end if
' -------------------------------------------------------------------------------------------------
RESPONSE.WRITE "<td width=200 align=center colspan=4>"
p_ii=p_ii+1
psss="("& p_ii&")"
call mon(X)
RESPONSE.WRITE "<table border=1 width=100% bgColor='"&td_bg_color&"' bgborder='"&td_bor&"'>"
RESPONSE.WRITE "<tr><td height=50 background="&web_background&"/top_foot_img/bg4.gif> "
RESPONSE.WRITE "『<font color='#ff0000'>"&left(trim(new_photo("phototitle")),6)&"...</font>』<br>"
RESPONSE.WRITE LEFT(Trim(new_photo("photocomment")),10)
RESPONSE.WRITE "...</td></tr><tr><td bgColor=ffffff align=right><br>"
%>
<table border="0" cellPadding="0" cellSpacing="0" height="90" width="130">
<tr>
<td align="middle" width="130">
<table bgColor="#cccccc" border="0" cellPadding="0" cellSpacing="1" height="90" width="130">
<tbody>
<tr>
<td bgColor="#ffffff" algin=center>
<table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="1" height="80" width="110">
<tbody>
<tr>
<td align=center>
<a href="photo_brow.asp?id=<%=new_photo("photoid")%>">
<img src="<%=photopath%>/<%=new_photo("photoname")%>" border="0" WHIDTH=50 HEIGHT=50 >
</a>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<%
RESPONSE.WRITE "</td><td align=middle vAlign=bottom width=17>"
RESPONSE.WRITE "<img border=0 src="&img_path&"/cool.gif width=10 height=70>"
RESPONSE.WRITE "</td></tr></table><br></td></tr><tr><td><center>"&psss&"<br>"
RESPONSE.WRITE L_CLASS_UPUSER&"："&trim(new_photo("photouser"))
RESPONSE.WRITE "<br>"&trim(new_photo("phototime"))&"</td></tr></table>"
RESPONSE.WRITE mon_foot&"</td><td> </td>"
' -------------------------------------------------------------------------------------------------------
new_photo.movenext
i=i+1
loop
end if
new_photo.close
set new_photo=nothing
RESPONSE.WRITE "</table>"& mon_foot
%>
<!--#include file="../templet/foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -