月经正常颜色是图片:徐氏新闻发布系统piccodejs-VIP.asp库文件

来源:百度文库 编辑:高考问答 时间:2024/05/02 07:29:33
piccodejs-vip.asp该库文件是显示图片列表的,但是运行的时候有错误,新手望高手解答.以下粘出部分代码:
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<%
Function glhtml(title)
title=replace(title," ","")
title=replace(title," ","")
title=replace(title," ","")
title=replace(title,chr(10),"")
title=replace(title,chr(32),"")
title=replace(title,chr(11),"")
title=replace(title,chr(9),"")
title=replace(title,chr(16),"")
title=replace(title,chr(13),"")
set reg=new regexp
reg.IgnoreCase=true
reg.Global=true
reg.Pattern="<(.+?)>"
glhtml=reg.Replace(title,"")
set reg=nothing
End Function
%>
document.write("<head><meta http-equiv='Content-Language' content='zh-cn'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head>");

<%
x=trim(request("x"))
y=trim(request("y"))
w=trim(request("w"))
h=trim(request("h"))
n=trim(request("n"))
lm2=trim(request("lm2"))
nr=trim(request("nr"))
nrtop=trim(request("nrtop"))
if nr="" then nr="0"
if nrtop="" then nrtop=100
nrtop=int(nrtop)
font=trim(request("font"))
zuo=trim(request("zuo"))
if zuo="" then zuo=1
if font="" then font=9
fy=trim(request("fy"))
hr=trim(request("hr"))
if hr="" then hr=0
if hr="1" then
hhh="<tr><td colspan=12><hr size=1></td></tr>"
'hhh="<hr size=1>"
end if
page=trim(request("page"))

if page="" then page=1
if fy="" then fy=0
if n="" then n=20
n=int(n)
open=trim(request("open"))
if open="1" then
open="_blank"
else
open="_top"
end if
if w="" then w=100
if h="" then h=100
if x="" then x=1
if y="" then y=1
x=int(x)
y=int(y)
xy=x*y

path="/news/"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [config]",conn,1,1
if rs.recordcount<>0 then
path=rs("path")
end if
rs.close
set rs=nothing

sql = "select * from news where pic<>'' "
if lm2<>"0" then sql=sql&" and (lm='"&lm2&"' or lm2='"&lm2&"' or lm3='"&lm2&"') "
sql=sql&" order by ontop desc , id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
document.write("<div align=center>");

什么错误,请明言!