媒体文件问题,继续
以下两段代码分别为aaa.asp,bbb.asp
{aaa.asp}
<%
dim conn,dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("ddd.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=;dbq=" & DBPath
%>
<%
dim page
page = request("page")
dim dbtypelist,dbtype
set rs = server.createobject("adodb.recordset")
sql = "select DISTINCT aaa from ccc"
rs.open sql,conn,1,1
do until rs.eof
if dbtypelist="" then
dbtypelist = rs("aaa")
else
dbtypelist = dbtypelist & "," & rs("aaa")
end if
rs.movenext
loop
rs.close
dbtype = split(dbtypelist,",")
if page="" then
page = dbtype(0)
end if
response.write "<table cellspacing=0 cellpadding=5 border=1 cellspacing=0
cellpadding=0>"
sql = "select DISTINCT aaa,bbb from ccc where aaa='"&page&"'"
rs.open sql,conn,1,1
Do While Not rs.Eof
response.write "<td width=100 valign=middle align=center bgcolor=#800080
bordercolor=#FFFF00 bordercolorlight=#0000FF bordercolordark=#FF00FF height=32><A
href=bbb.asp?page=" & rs("bbb") & "><b><font face=宋体 size=4 color=#00FF00>哈哈哈
</font></b></a></td>"
rs.movenext
loop
rs.close
response.write "</table>"
set rs = nothing
conn.close
set conn = nothing
%>
{bbb.asp}
<%
dim conn,dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("ddd.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=;dbq=" & DBPath
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
dim page
page = request("page")
dim dbtypelist,dbtype
set rs = server.createobject("adodb.recordset")
sql = "select DISTINCT bbb from ccc"
rs.open sql,conn,1,1
do until rs.eof
if dbtypelist="" then
dbtypelist = rs("bbb")
else
dbtypelist = dbtypelist & "," & rs("bbb")
end if
rs.movenext
loop
rs.close
dbtype = split(dbtypelist,",")
if page="" then
page = dbtype(0)
end if
sql = "select DISTINCT aaa,bbb,kkk from ccc where bbb='"&page&"'"
rs.open sql,conn,1,1
Do While Not rs.Eof
response.write "<OBJECT ID='WMPlay' CLASSID='clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6' TYPE='application/x-oleobject' pluginspage='http://www.microsoft.com/Windows/Downloads/Contents/Products/MediaPlayer/' width=600 height=500>"
response.write "<param name=URL value=" & rs("kkk") & ">"
response.write "<param name=rate value=1>"
response.write "<param name=balance value=0>"
response.write "<param name=currentPosition value=0>"
response.write "<param name=defaultFrame value>"
response.write "<param name=playCount value=1>"
response.write "<param name=autoStart value=-1>"
response.write "<param name=currentMarker value=0>"
response.write "<param name=invokeURLs value=-1>"
response.write "<param name=baseURL value>"
response.write "<param name=volume value=75>"
response.write "<param name=mute value=0>"
response.write "<param name=uiMode value=full>"
response.write "<param name=stretchToFit value=1>"
response.write "<param name=windowlessVideo value=0>"
response.write "<param name=enabled value=-1>"
response.write "<param name=enableContextMenu value=0>"
response.write "<param name=fullScreen value=0>"
response.write "<param name=SAMIStyle value>"
response.write "<param name=SAMILang value>"
response.write "<param name=SAMIFilename value>"
response.write "<param name=captioningID value>"
response.write "<param name=enableErrorDialogs value=0>"
response.write "<param name=_cx value=22701>"
response.write "<param name=_cy value=17992>"
response.write "</OBJECT>"
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</body>
</html>
奇怪的问题发生了,当我在aaa.asp中点击连接到bbb.asp的超连接后,
出现的是空白页面,而没有媒体播放器,
但是奇怪的是当我把鼠标放入地址栏的末尾按回车后,
媒体播放器又出现了.搞不明白哈,
希望有高手高手高高手能够帮忙解决哈!
真诚的感谢!!!
问题点数：100、回复次数：4Top
1 楼slawdan（select 大便 from 粪池 where 蛆数<10）回复于 2006-07-04 16:22:41 得分 0
其中某一个是缓存，没有清空
你可以在bbb.asp中添加头强迫页面刷新和不缓存Top
2 楼chileni（）回复于 2006-07-04 16:47:49 得分 0
那么具体代码该怎么写呢?不太懂,谢谢指教!Top
3 楼chileni（）回复于 2006-07-04 19:19:21 得分 0
怎么没人解答呢?
大侠帮帮忙哈!!!Top
4 楼chileni（）回复于 2006-07-04 20:06:23 得分 0
问题已经解决,找到原因了!比较低级
谢谢大家帮忙哈,不过分数俺要收回喽!Top
