请教6.5JS外调途径问题？-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2092 查看	2 回复

主题：[求助]请教6.5JS外调途径问题？ [收藏主题]

kokishang 当前离线

4 主题	0 广播	0 粉丝

级别:学前班

用户积分:200 分
登录次数:17 次
注册时间:2008/9/1
最后登录:2012/3/4

kokishang 发表于：2010/10/28 15:38:00 | 只看该作者查看该作者主题楼主

做考试题库就用#科汛在线考试系统!

复制代码

/*
==============================================================================================================================
文件作用：调用试卷列表
调用代码：<script src="/mnkc/showsj.asp?titlelen=20&num=10&classid=0&classtf=1&recommend=1&popular=1&money=1&hitstf=0" language="javascript"></script>
参数说明：num调用条数，classid栏目ID不限制取0否则取相应的栏目id编号,classtf显示栏目取1否则取0，hitstf按点击数排序取1否则取0
==============================================================================================================================
*/
<%
dim KS:set KS=new PublicCls
dim num:num=KS.chkclng(KS.g("num")) '调用条数
dim titlelen:titlelen=KS.chkclng(KS.g("titlelen")) '标题长度
dim classid:classid=KS.chkclng(KS.g("classid")) '栏目ID
dim classtf:classtf=KS.chkclng(KS.g("classtf")) '是否显示栏目取1显示
dim recommend:recommend=KS.chkclng(KS.g("recommend")) '是否推荐
dim popular:popular=KS.chkclng(KS.g("popular")) '是否热门 1是
dim money:money=KS.chkclng(KS.g("money")) '是否显示金币 1是
dim hitstf:hitstf=KS.chkclng(KS.g("hitstf")) '取1按点击次数
%>
function loadex(id)
{
window.open('<%=KS.Setting(3) & KS.C_S(9,10)%>/exam/?id='+id,'new','');
}
<%dim param,mstr
param=" where verific=1"
if classid<>0 then param=param & " and tid=" & classid
if recommend<>0 then param=param & " and recommend=1"
if popular<>0 then param=param & " and popular=1"
if hitstf=1 then param=param & " order by hits desc" else param=param & " order by a.id desc"
dim rs:set rs=server.CreateObject("adodb.recordset")
rs.open "select top " & num & " b.tname,a.* from KS_SJ a inner join KS_SJClass b on a.tid=b.id" & param,conn,1,1
if not rs.eof then
do while not rs.eof
dim foldername:foldername=rs(0)
if classtf=1 then
foldername="[<a href='" & Replace(KS.Setting(3) & KS.C_S(9,8),"//","/") &"sjlb/" &rs("tid") & "_1.htm'>" &split(foldername,"|")(ubound(split(foldername,"|"))-1)&"</a>]"
else
foldername=""
end if
if money=1 then
if rs("sq")>0 then
mstr=" <span style='color:#f90'><img src='" & KS.Setting(3) & KS.C_S(9,10) & "/images/money.gif' align='absmiddle'>" & rs("sq") & KS.Setting(45) & "</span>"
else
mstr=" <img src='" & KS.Setting(3) & KS.C_S(9,10) & "/images/free.gif' align='absmiddle'>"
end if
end if
dim url,target
if rs("dtfs")="1" then
url=Replace(KS.Setting(3) & KS.C_S(9,8),"//","/") & "sj/" & rs("ID") & ".htm"
target=" target=\""_blank\"""
else
target=""
url="javascript:loadex(" & rs("id") & ")"
end if
%>
document.write("<li><span class='classname'><%=foldername%></span><a href=\"<%=url%>\"<%=target%>><%=ks.gottopic(rs("title"),titlelen)%></a><%=mstr%></li>");
<%
rs.movenext
loop
end if
rs.close:set rs=nothing
conn.close:set conn=nothing
set KS=nothing
%>