一个当前页面调用图片的代码,请求帮助更改
这是一个调用图片的ASP代码,调用方式是通过判断当前页面,然后调用合适的图片显示.我想请问,哪些是判断当前页面的代码呢?
因为我想把这个调用设置到所有页面统一调用图片.
先谢谢回答帮忙的朋友了
___________________________________________________________________________-
Public Function w9c_show_gg()
If sort_id<>"" And sort_id<>0 Then
page=safereplace(request("page"))
If not isnumeric(page) or isempty(page) Then page=1
str_show_gg="<table width='100%' align='center' cellpadding='3' cellspacing='0'>"
sql="select gg_w,gg_h,gg,ifgg,ggurl from [1_ggsort] where sort_id="&sort_id&" and gg<>''"
set rs=server.CreateObject("adodb.recordset")
rs.open sql, conn, 1, 1
if rs.eof then
str_show_gg=str_show_gg&"<tr><td height=30 align=center>"&w9c_word137&"</td></tr>"
Else
If Not isempty(page) or isnumeric(page) Then
pagecount=CLng(page)
Else
pagecount=1
End If
rs.pagesize=1
rs.AbsolutePage=pagecount
do while not rs.eof
str_show_gg=str_show_gg&"<tr><td align=center>"
If rs("ifgg")=1 And Trim(rs("ggurl"))="" Then
str_show_gg=str_show_gg&"<img src='"&Trim(rs("gg"))&"' border='0' width='"&rs("gg_w")&"' height='"&rs("gg_h")&"'>"
ElseIf rs("ifgg")=1 And Trim(rs("ggurl"))<>"" Then
str_show_gg=str_show_gg&"<a href='"&Trim(rs("ggurl"))&"' target='_blank'><img src='"&Trim(rs("gg"))&"' border='0' width='"&rs("gg_w")&"' height='"&rs("gg_h")&"'></a>"
ElseIf rs("ifgg")=0 Then
str_show_gg=str_show_gg&"<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0, 29, 0' width="&rs("gg_w")&" height="&rs("gg_h")&"><param name='movie' value='"&Trim(rs("gg"))&"'><param name='quality' value='high'><param name='wmode' value='transparent'><embed src='"&Trim(rs("gg"))&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='"&rs("gg_w")&"' height='"&rs("gg_h")&"'></embed></object>"
End If
str_show_gg=str_show_gg&"</td></tr>"
rs.movenext
str_show_gg_num=str_show_gg_num+1
if str_show_gg_num>=rs.pagesize then exit do
loop
end if
rs.close:set rs=Nothing
str_show_gg=str_show_gg&"</table>"
Else
str_show_gg = ""
End If
w9c_show_gg = str_show_gg
End Function