top.asp

不是我做的一个留言板

<!--

'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息: 计8工作窒制作 http://j8pc.126.com/  
'
'海军第一职业技术学校 J8工作室
' 作者：陈峰
' 网名：浪の小石 ,湛江.小浪石
' QQ:1972717   
'email:[e-mail]
'
'''''''''''''''''''''''''''''''''''''''''''''''''
-->

<%


        RESPONSE.WRITE "<center><table border=0 width='"&web_width&"' bgcolor='"&table_bg_color&"'" 
        RESPONSE.WRITE " background="&web_background&"/top_foot_img/bg_top.gif colspan=0 rowspan=0>" 
        RESPONSE.WRITE "<tr><td valign=top colspan=10 bgcolor='"&table_bg_color&"'>" &top_m
        RESPONSE.WRITE "<!-- tr 2 --></tr><tr><td valign=top colspan=10>"
        RESPONSE.WRITE "<table border=1 width=100% cellspacing=3 cellpadding=3 bgcolor='"&list_borderbg_color&"'>" 
        RESPONSE.WRITE "<tr><td width=100% bgcolor='"&list_bg_color&"' align=center colspan=10>"
        RESPONSE.WRITE classname&"---"&classname_2
        RESPONSE.WRITE "</td></tr><tr><td width=10% bgcolor='"&list_bg_color&"' align=center><a href='../main/class_index.asp'>"
        RESPONSE.WRITE "<img src="&web_background&"/0.gif border=0 >"
        RESPONSE.WRITE "<p>"&l_top_index&"</a></td><td width=10% bgcolor='"&list_bg_color&"' align=center>"
        RESPONSE.WRITE "<a href=../main/class_msg.asp><img  src="&web_background&"/1.gif border=0 >"
        RESPONSE.WRITE "<p>"&l_top_msg&"</a></td><td width=10% bgcolor="&list_bg_color&" align=center>"
        RESPONSE.WRITE "<a href=../main/class_member.asp>"
        RESPONSE.WRITE "<img src="&web_background&"/2.gif border=0 >"
        RESPONSE.WRITE "<p>"&l_top_member&"</a></td><td width=10% bgcolor='"&list_bg_color&"' align=center> "
        RESPONSE.WRITE "<a href=../main/class_photo.asp><img src="&main_web&web_background&"/3.gif border=0 > "
        RESPONSE.WRITE "<p>"&l_top_photo&"</a></td>"
        RESPONSE.WRITE "<td width=10% bgcolor='"&list_bg_color&"' align=center>"
        RESPONSE.WRITE "<a href=../main/user_admin.asp><img src="&web_background&"/4.gif border=0 >"
        RESPONSE.WRITE "<p>"&l_top_tools&"</a></td><td width=10% bgcolor="&list_bg_color&" align=center>"
%>
<A href="#" onclick="open('../mark/my_mark.asp','<%=l_top_mark%>','resizable=1,scrollbars=1,status=no,toolbar=no,location=no,menu=no width=350 height=380')"> 
<%
        RESPONSE.WRITE "<img  height=50 src="&web_background&"/5.gif   border=0><p>"&l_top_mark&"</a></td> "
        RESPONSE.WRITE "<td width=10% bgcolor='"&list_bg_color&"' align=center><a href=../main/insert.asp>"
        RESPONSE.WRITE "<img src="&web_background&"/6.gif border=0 ><p>"&l_top_addtools&"</a></td>" 
        RESPONSE.WRITE "<td width=10% bgcolor='"&list_bg_color&"' align=center><a href=../main/soung_music.asp>"
        RESPONSE.WRITE "<img src="&web_background&"/7.gif border=0 ><p>"&l_top_soundmusic&"</a></td> "
        RESPONSE.WRITE "<td width=10% bgcolor='"&list_bg_color&"' align=center><a href=../class_admin/>" 
        RESPONSE.WRITE "<img src="&web_background&"/8.gif border=0 ><p>"&l_top_admin&"</a></td>" 
        RESPONSE.WRITE "<td width=10% bgcolor='"&list_bg_color&"' align=center><a href=../main/logout.asp>"
        RESPONSE.WRITE "<img src="&web_background&"/9.gif border=0 ><p>"&l_top_outlogin&"</a></td>"
        RESPONSE.WRITE"</tr></table></td></tr>"
%> 
<!-- tr 3 -->
<tr> 
<td valign="top" colspan="10" bgcolor="<%=table_bg_color%>"> 
<!-- ########### -->
<table border="0" background="<%=web_background%>/top_foot_<%=img_path%>/bg4.gif" width="100%">
<!--  用户风格  user style   --> 
<tr>
<td width="200" align="center">
<form name="form1" method="post" action="../main/user_upstyle.asp"> 
<input type="hidden" name="stuser" value="<%=session_cookie_name%>"> 
<select name="user_style" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'"> 
<option selected value="0">-<%=style_name%>-</option>
<%
msytle="select name,id from style"
set rstyle=conn.execute(msytle)
	Do while not rstyle.eof
	        RESPONSE.WRITE "<option value="&rstyle("id")&">-"&rstyle("name")&"-</option>"
	rstyle.movenext
loop
rstyle.close
set rrstyle=nothing%>
%>         
</select> 
<input style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'" type="submit" name="Submit" value="提交">      
</td> 
</form> 
<!--  风格结束 style end -->
<td align="center" width="167">
<%
primsg="SELECT count(primsguser) as prino FROM primsg where primsgtype=1 and primsguser='"&session_cookie_name&"' and g_id='"&session_cookie_gid&"'"
set pri_msg=conn.execute(primsg)
        RESPONSE.WRITE "<marquee width=250 height=16><img src="&img_path&"/dog_img.gif>"
if pri_msg("prino")=0 then
        RESPONSE.WRITE l_top_nomsg
else
        RESPONSE.WRITE "<bgsound src=../music/mail.wav border=0><a href=../main/primsg.asp><font color=ff0000>"
        RESPONSE.WRITE l_top_havemsg1 & pri_msg("prino")& l_top_havemsg2 &"</a>" 
end if
pri_msg.close 
set pri_msg=nothing 
        RESPONSE.WRITE "★"
new_user="select userid,usergroup,username from [user]  where usergroup='1' and g_id='"&session_cookie_gid&"'"
set new_user=conn.execute(new_user)
do while not new_user.eof
user_i=new_user("username")
%>
<a href='#'
onClick="javascript:window.open('../main/action_user.asp?id=<%=new_user("userid")%>','','width=300,height=300,left=150,top=50')">(
<%
        RESPONSE.WRITE new_user("username")&"),</a>"
new_user.movenext

if user_i<>"" then
        RESPONSE.WRITE l_top_actionuser&"★"
end if
loop
new_user.close

%>
</marquee>
</font>
</td>
<!--  音乐开始 music star--> 

<form method="post" action="../templet/foot2.asp" target="foot">
<td width="180" align="right">
<select name="music" style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'" size="1">  
<%
top_music_sql="select * from [music] where music_type='背景' and g_id='"&session_cookie_gid&"'"
set music_rs=conn.execute(top_music_sql)
do while not music_rs.eof
        RESPONSE.WRITE "<option value='"&music_rs("music_url")&"'>-"&music_rs("music_name")&"-</option>"
 music_rs.movenext            
  loop            
 music_rs.close     

        RESPONSE.WRITE "<option value=关闭音乐>-"&l_top_closemusic&"-</option>"
	RESPONSE.WRITE "</select><input type=image name=Submit src="&img_path&"/play1.gif width=16>"  
%>
   
<!--  音乐结束  music end-->     
</td>
</form>
  </tr>
</table>
<!-- ########### -->
</td></tr>
<!-- tr 4 -->
<tr> 
<td valign="top" align="center" colspan="10" bgcolor=<%=table_bg_color%> bgcolor="<%=table_bg_color%>"> 
<!--文件结束 top end -->