为什么调用后首页不显示呢？
<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Dim Conn,Sql,Rs,Mjs,intNum,User,intLang
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../hxk/xhgmind.mdb")
Const strUrl = "¡¤<font color=#666666>[{$Class}] </font><a href=""game/gamemind/ArticleShow.asp?ArticleID={$Theid}"" title={$Thenote} class=b>{$Font}</a><br>"
intNum = CInt(Request.QueryString("n"))
intLang = CInt(Request.QueryString("c"))
Sql = "Select Top " & intNum & " ArticleID,BigClassName,Title from Article order by UpdateTime Desc,ArticleID Desc"
Set Rs = Conn.Execute(Sql)
If Not Rs.Eof Then
Mjs = Rs.Getrows()
End If
Set Rs = Nothing
Conn.Close : Set Conn = Nothing
If IsArray(Mjs) Then
Dim i
For i = 0 To Ubound(Mjs,2)
User = User & Replace(Replace(Replace(Replace(strUrl,"{$Font}",trimCode(Mjs(2,i))),"{$Thenote}",Mjs(2,i)),"{$Theid}",Mjs(0,i)),"{$Class}",Mjs(1,i))
Next
Response.write "document.write('"&User&"');"
End If
Function trimCode(sCode)
If Len(sCode)>intLang Then
trimCode = Left(sCode,intLang)
Else
trimCode = sCode
End If
End Function
%>
保存为 Youxi_tran.asp 首页中调用<script src="mjs_img/Youxi_tran.asp?n=10&c=15"></script> 这是一个能显示的
底下的却显示不了
<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Dim Conn,Sql,Rs,Mjs,intNum,User,intLang
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../hxk/monkey.asp")
Const strUrl = "¡¤<a href=""house/newsshow.asp?id={$Theid}"" title={$Thenote} class=b>{$Font}</a><br>"
intNum = CInt(Request.QueryString("n"))
intLang = CInt(Request.QueryString("c"))
Sql = "Select Top " & intNum & " ID,TYPE From News Order By dat Desc,ID Desc"
Set Rs = Conn.Execute(Sql)
If Not Rs.Eof Then
Mjs = Rs.Getrows()
End If
Set Rs = Nothing
Conn.Close : Set Conn = Nothing
If IsArray(Mjs) Then
Dim i
For i = 0 To Ubound(Mjs,2)
User = User & Replace(Replace(Replace(strUrl,"{$Font}",trimCode(Mjs(1,i))),"{$Theid}",Mjs(0,i)),"{$Thenote}",Mjs(1,i))
Next
Response.write "document.write('"&User&"');"
End If
Function trimCode(sCode)
If Len(sCode)>intLang Then
trimCode = Left(sCode,intLang) & ".."
Else
trimCode = sCode
End If
End Function
%>
问题点数：0、回复次数：2Top
1 楼eastjazz（德仔&我是小仔仔 www.dezai.cn）回复于 2005-04-02 16:25:01 得分 0
路径有没有搞错呀！一般如果程序上没错，就可能在JS上的路径出错，楼主要注意相对../与绝对的区别.Top
2 楼LW1981（旋转的线）回复于 2005-04-02 16:36:26 得分 0
Response.write "<script language='javascript'>"
Response.write "document.write('"&User&"');"
response.write "</script>"
Top
相关问题
- 首页不能显示调用flash
- 用javascript调用.net页面为什么无法显示数据
- 请问为什么在按钮中调用addplot();有显示，而在OnPaint中调用却没有显示？
- 为什么调用IWebBrowser2::Navigate2()方法显示页面为什么这么慢？
- 对于一个窗口的显示，为什么调用ShowWindow后还要调用UpdateWindow来送出WM_PAINT消息
- 为什么在多线程里创建 COM 显示“尚未调用CoInitialize”错误？
- 为什么调用ftp_connect()时会显示"Call to undefined function: ftp_connect()…"?请指教。
- 第二次调用报表为什么没有数据显示？（内详）
- 为什么在htm文件里调用Js文件会显示乱码
- a页面调用b页面时，为什么不显示内容呢。<script src=...></script>
