<%
'On Error Resume Next
%>
<!--#include file="../conn.asp" -->
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body>
<%

'检查用户访问的权限
'call checkuser(5)
Set rs=Server.CreateObject("ADODB.RecordSet")
strSQL="select tm_content,id,t_code from Templet_Menu"
rs.open strSQL,conn,1,4
for i=1 to rs.recordcount
	if not isnull(rs(0)) and rs(2)<>"201" and rs(2)<>"202" then
		str=rs(0)
		str=replace(str,"images/","UpFile/")
		str=replace(str,"<a href= target=""_blank"">http://bbs.ookk.net</a>","<a href="""" target=""_blank"">http://bbs.name.net</a>")

		strsql="update Templet_Menu set tm_content='"&str&"' where id="&rs(1)
		response.Write(strsql&"<br>")
		conn.execute(strsql)
	end if
	rs.movenext
next
%>
</body>
</head>
</HTML>