您所在位置：主题：求助！！为什么这段代码URL不能更改？？？
loaferking [专家分：10] 发布于 2006-08-04 17:55:00
sub head()
%>
<html>
<head>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name=keywords content="同学录">
<title><%=txl_info(0)%>--<%=htmlencode(stats)%></title>
<!--#include file="txl_css.asp"-->
<!--#include file="txl_js.asp"-->
</head>
<body topmargin=0 onmousemove="HideMenu()">
<div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
<tr>
<td width="<%=txl_body(0)%>"><%=txl_body(22)%></td>
</tr>
<tr>
<td width="<%=txl_body(0)%>" height="9" background=<%=txl_info(6)&txl_skinpic(0)%>></td>
</tr>
<tr>
<td width="780" height="22" background=<%=txl_info(6)&txl_skinpic(1)%>>
<%if not founduser then%>
<a href="login.asp">登陆</a> <img src=<%=txl_info(7)%>spacer.gif align=absmiddle>
<a href="register.asp">注册</a> <img src=<%=txl_info(7)%>spacer.gif align=absmiddle>
<%end if%>
<a href="index.asp">班级首页</a>
<a href="http://[color=800000]www.melyy.cn[/color]" target=_blank>魅力网络</a>
<!--加入插件管理器开始-->
<%
set rs= server.createobject ("adodb.recordset")
sqlzhu = "select * from zu order by zhuid"
rs.open sqlzhu,connplus,0,1
if not (rs.bof and rs.eof) then
do while not rs.eof
response.write " <img src="&txl_info(7)&"spacer.gif align=absmiddle> <a onMouseOver='ShowMenu(plus"&rs("zhuid")&",100)' href='#'>"&rs("zhuname")&"</a>"
rs.movenext
loop
end if
rs.close
set connplus=nothing
%>
<!--加入插件管理器结束--> <img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a
href="#" onMouseOver='ShowMenu(stylelist,100)'>风格</a>
<img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a
href="help.asp">帮助 </a>
<%if supermaster then%>
<img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a href="admin_index.asp" target=_blank>管理</a>
<%end if%>
<%if founduser then%>
<img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a href="logout.asp">退出</a> </td>
<%end if%>
</tr>
</table>
<%
if Cint(GroupSetting(0))=1 and (instr(scriptname,"register.asp")=0 and instr(scriptname,"login.asp")=0) then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览本同学录的权限，请<a href=login.asp>登陆</a>后浏览或者同管理员联系。"
call head_var("错误信息","")
call txl_error()
call foot()
response.end
end if
end sub
sub head_var(GetTitle,GetUrl)
%>
<table cellspacing=1 cellpadding=3 align=center border=0 width="<%=txl_body(0)%>">
<tr>
<%if not founduser then%>
<%else%>
<td width=65% align=right height="32" background="<%=txl_info(7)%>bj.gif">
<%if Cint(newincept())>Cint(0) then%>
<bgsound src="<%=txl_info(7)%>mail.wav" border=0>
<%if Cint(txl_set(3))=0 then%>
<script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%>
<img src=<%=txl_info(7)%>msg_new.gif> <a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="<%=txl_body(20)%>"><%=newincept()%> 新</font></a>)
<%else%>
<img src=<%=txl_info(7)%>msg_no.gif> <a href="usersms.asp?action=inbox">我的收件箱</a> (<font color=gray>0 新</font>)
<%end if%>
<%end if%>
</td></tr>
</table>
<table width="<%=txl_body(0)%>" cellpadding=3 cellspacing=0 align=center style="border:1px <%=txl_body(9)%> solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
<tr>
<td height=30 valign=middle bgcolor=<%=txl_body(10)%>> <img src=<%=txl_info(7)%>dot01.gif border=0> <a href=index.asp>班级首页</a> → <a href=<%=GetUrl%>><%=GetTitle%></a> → <%=HTMLEncode(stats)%></td>
</tr>
</table>
<%
end sub
%>
<html>
<head>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<meta name=keywords content="同学录">
<title><%=txl_info(0)%>--<%=htmlencode(stats)%></title>
<!--#include file="txl_css.asp"-->
<!--#include file="txl_js.asp"-->
</head>
<body topmargin=0 onmousemove="HideMenu()">
<div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<table width="<%=txl_body(0)%>" cellpadding="0" cellspacing="0" align="center" style="border:1px <%=txl_body(9)%> solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
<tr>
<td width="<%=txl_body(0)%>"><%=txl_body(22)%></td>
</tr>
<tr>
<td width="<%=txl_body(0)%>" height="9" background=<%=txl_info(6)&txl_skinpic(0)%>></td>
</tr>
<tr>
<td width="780" height="22" background=<%=txl_info(6)&txl_skinpic(1)%>>
<%if not founduser then%>
<a href="login.asp">登陆</a> <img src=<%=txl_info(7)%>spacer.gif align=absmiddle>
<a href="register.asp">注册</a> <img src=<%=txl_info(7)%>spacer.gif align=absmiddle>
<%end if%>
<a href="index.asp">班级首页</a>
<a href="http://[color=800000]www.melyy.cn[/color]" target=_blank>魅力网络</a>
<!--加入插件管理器开始-->
<%
set rs= server.createobject ("adodb.recordset")
sqlzhu = "select * from zu order by zhuid"
rs.open sqlzhu,connplus,0,1
if not (rs.bof and rs.eof) then
do while not rs.eof
response.write " <img src="&txl_info(7)&"spacer.gif align=absmiddle> <a onMouseOver='ShowMenu(plus"&rs("zhuid")&",100)' href='#'>"&rs("zhuname")&"</a>"
rs.movenext
loop
end if
rs.close
set connplus=nothing
%>
<!--加入插件管理器结束--> <img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a
href="#" onMouseOver='ShowMenu(stylelist,100)'>风格</a>
<img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a
href="help.asp">帮助 </a>
<%if supermaster then%>
<img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a href="admin_index.asp" target=_blank>管理</a>
<%end if%>
<%if founduser then%>
<img src=<%=txl_info(7)%>spacer.gif align=absmiddle> <a href="logout.asp">退出</a> </td>
<%end if%>
</tr>
</table>
<%
if Cint(GroupSetting(0))=1 and (instr(scriptname,"register.asp")=0 and instr(scriptname,"login.asp")=0) then
Errmsg=Errmsg+"<br>"+"<li>您没有浏览本同学录的权限，请<a href=login.asp>登陆</a>后浏览或者同管理员联系。"
call head_var("错误信息","")
call txl_error()
call foot()
response.end
end if
end sub
sub head_var(GetTitle,GetUrl)
%>
<table cellspacing=1 cellpadding=3 align=center border=0 width="<%=txl_body(0)%>">
<tr>
<%if not founduser then%>
<%else%>
<td width=65% align=right height="32" background="<%=txl_info(7)%>bj.gif">
<%if Cint(newincept())>Cint(0) then%>
<bgsound src="<%=txl_info(7)%>mail.wav" border=0>
<%if Cint(txl_set(3))=0 then%>
<script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%end if%>
<img src=<%=txl_info(7)%>msg_new.gif> <a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="<%=txl_body(20)%>"><%=newincept()%> 新</font></a>)
<%else%>
<img src=<%=txl_info(7)%>msg_no.gif> <a href="usersms.asp?action=inbox">我的收件箱</a> (<font color=gray>0 新</font>)
<%end if%>
<%end if%>
</td></tr>
</table>
<table width="<%=txl_body(0)%>" cellpadding=3 cellspacing=0 align=center style="border:1px <%=txl_body(9)%> solid; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 1px;">
<tr>
<td height=30 valign=middle bgcolor=<%=txl_body(10)%>> <img src=<%=txl_info(7)%>dot01.gif border=0> <a href=index.asp>班级首页</a> → <a href=<%=GetUrl%>><%=GetTitle%></a> → <%=HTMLEncode(stats)%></td>
</tr>
</table>
<%
end sub
