Question

100分 解决一下：sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName

asp调用语句！
首先发一下代码！
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if BigClass<>"" and SmallClass <>"" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by

AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass<>"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
%>
<%
rs.PageSize=20
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>

我想吧栏目页里的企业新闻调用到首页，我在首页上加上代码以后提示“暂时没有记录”

我也在网上搜索了一下。说是要给&BigClass&和&SmallClass&赋值，但是不会啊。
不知道怎么赋值。我要是用网页打开，网页链接后面一定跟着 网址/NewsClass.asp?BigClass=%C6%F3%D2%B5%D0%C2%CE%C5 这样的类型。不知道怎么弄一下就可以直接在首页调用新闻了，大侠帮帮忙100分送上！

Answer 1

这个地址明显用了URLEncode编码﹐所以要解码才可以

比如 BigClass=%C6%F3%D2%B5%D0%C2%CE%C5

解密之后就是BigClass=企业新闻

先定义解密函数

function urldecode(encodestr)
newstr=""
havechar=false
lastchar=""
for i=1 to len(encodestr)
char_c=mid(encodestr,i,1)
if char_c="+" then
newstr=newstr & " "
elseif char_c="%" then
next_1_c=mid(encodestr,i+1,2)
next_1_num=cint("&H" & next_1_c)
if havechar then
havechar=false
newstr=newstr & chr(cint("&H" & lastchar & next_1_c))
else
if abs(next_1_num)<=127 then
newstr=newstr & chr(next_1_num)
else
havechar=true
lastchar=next_1_c
end if
end if
i=i+2
else
newstr=newstr & char_c
end if
next
urldecode=newstr
end function

然后在Set rs=Server.CreateObject("ADODB.RecordSet")之后加上解密语句

SmallClass=urldecode(SmallClass)

然后再试下

追问

我是个新手，能不能弄一个已经弄好的代码发出来！

按照你弄的出现了一点

十分感谢

追答

我的编码是是UNOCODE﹐你看下能否直接用﹐不行的话就另存下ANSI或UTF-8就好了

追问

大哥 实在不好意思，这个代码可以用，出现的就是图片的内容，

没有记录显示，现在问题就是企业新闻那个添加在哪里才有显示这样的！

我有三个栏目。还有技术文档 和业内新闻

辛苦你了，大哥帮我一下！

追答

你这种内容是固定的﹐直接把SQL语句改成以下语句就好了
sql="select * from news where BigClassName ='企业新闻' order by AddDate desc"

你先改成这样看是否会显示