解决问题,高分100送??
我的动网论坛的首页链接代码好像有问题,下面是原首页调用的asp文件的源代码:
<!--#include file="conn.asp"-->
<%
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, ";", ";")
fString = replace(fString, "'", "‘")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), ";")
fString = Replace(fString, CHR(10), ",")
HTMLEncode = fString
end function
dim rs,sql
if request("orders")=1 then
orders="hits"
else
orders="DateAndTime"
end if
if request("reply")=1 then
reply=""
else
reply=" parentid=0 and "
end if
set rs=server.createobject("adodb.recordset")
if request("boardid")="all" then
sql="select top "&request("n")&" username,topic,announceid,boardid,rootid,hits from bbs1 where "&reply&" datediff('d',dateandtime,Now())>="&request("sdate")-1&" and not locktopic=2 ORDER BY "&orders&" desc"
else
sql="select top "&request("n")&" username,topic,announceid,boardid,rootid,hits from bbs1 where "&reply&" datediff('d',dateandtime,Now())>="&request("sdate")-1&" and not locktopic=2 and boardid="&request("boardid")&" ORDER BY "&orders&" desc"
end if
rs.open sql,conn,1,1
do while Not RS.Eof
response.write "document.write('<FONT color=#b70000><B>·</B></FONT><span style=""font-size:9pt;line-height: 15pt""><a href=dispbbs.asp?boardid="&rs(3)&"&RootID="&rs(4)&"&ID="&rs(2)&" target=_top title="&htmlencode(rs(1))&">');"
if len((rs("topic")))>Cint(request("tlen")) then
response.write "document.write('"&htmlencode(left(rs(1),request("tlen")))&"...');"
else
response.write "document.write('"&htmlencode(rs(1))&"');"
end if
response.write "document.write('</a>');"
select case request("info")
case 0
case 1
response.write "document.write('(<a href=dispuser.asp?name="&rs(0)&" target=_blank>"&rs(0)&"</a>,<font color=green>"&rs(5)&"</font>)');"
case 2
response.write "document.write('(<font color=green>"&rs(5)&"</font>)');"
case 3
response.write "document.write('(<a href=dispuser.asp?name="&rs(0)&" target=_blank>"&rs(0)&"</a>)');"
case else
end select
response.write "document.write('</span><br>');"
RS.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
运行首页总是网页上有问题,什么都没有,首页调用是空的,请高手解决!!
<!--#include file="conn.asp"-->
<%
function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = replace(fString, ";", ";")
fString = replace(fString, "'", "‘")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), ";")
fString = Replace(fString, CHR(10), ",")
HTMLEncode = fString
end function
dim rs,sql
if request("orders")=1 then
orders="hits"
else
orders="DateAndTime"
end if
if request("reply")=1 then
reply=""
else
reply=" parentid=0 and "
end if
set rs=server.createobject("adodb.recordset")
if request("boardid")="all" then
sql="select top "&request("n")&" username,topic,announceid,boardid,rootid,hits from bbs1 where "&reply&" datediff('d',dateandtime,Now())>="&request("sdate")-1&" and not locktopic=2 ORDER BY "&orders&" desc"
else
sql="select top "&request("n")&" username,topic,announceid,boardid,rootid,hits from bbs1 where "&reply&" datediff('d',dateandtime,Now())>="&request("sdate")-1&" and not locktopic=2 and boardid="&request("boardid")&" ORDER BY "&orders&" desc"
end if
rs.open sql,conn,1,1
do while Not RS.Eof
response.write "document.write('<FONT color=#b70000><B>·</B></FONT><span style=""font-size:9pt;line-height: 15pt""><a href=dispbbs.asp?boardid="&rs(3)&"&RootID="&rs(4)&"&ID="&rs(2)&" target=_top title="&htmlencode(rs(1))&">');"
if len((rs("topic")))>Cint(request("tlen")) then
response.write "document.write('"&htmlencode(left(rs(1),request("tlen")))&"...');"
else
response.write "document.write('"&htmlencode(rs(1))&"');"
end if
response.write "document.write('</a>');"
select case request("info")
case 0
case 1
response.write "document.write('(<a href=dispuser.asp?name="&rs(0)&" target=_blank>"&rs(0)&"</a>,<font color=green>"&rs(5)&"</font>)');"
case 2
response.write "document.write('(<font color=green>"&rs(5)&"</font>)');"
case 3
response.write "document.write('(<a href=dispuser.asp?name="&rs(0)&" target=_blank>"&rs(0)&"</a>)');"
case else
end select
response.write "document.write('</span><br>');"
RS.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
运行首页总是网页上有问题,什么都没有,首页调用是空的,请高手解决!!
...全文
相关推荐
linux远程连接工具
远程连接Linux服务器,快速便捷的操作Linux系统服务器
法泰FTM9-100系列高分断小型断路器详细解析与选型
在现代电子设备中,高效保护设备不仅是延长设备寿命的关键,也是确保系统稳定运行的基石。随着技术的进步和应用需求的增长,保护设备的功能和性能也日益增强。本章将概述高效保护设备的基本概念,并探讨其在现代工业中的重要性。高分断能力是指断路器在预定的测试条件下,能够安全地中断故障电流的性能。在现代电路保护中,这一能力尤为重要,因为它直接关系到电气系统安全、人员安全以及设备的保护。高分断能力断路器能够在极短的时间内切断大电流,避免短路、过载等故障导致的电路损害,从而减少停电时间、提高电网的可靠性和安全性。
ssh 远程连接Linux工具
ssh工具 用于连接远程服务器 linux 系统 解压 安装即可使用
最好的远程连接工具最好的远程连接工具
最好的远程连接工具最好的远程连接工具最好的远程连接工具最好的远程连接工具最好的远程连接工具最好的远程连接工具最好的远程连接工具最好的远程连接工具
redis远程连接可视化工具
redis远程连接工具,有需要的可以下载,比较方便


