www.gusucode.com > 追梦翔飞数字报静态生成版 7.0 体验版码程序 > Include/Function.asp

    <%
Private Sub Page_Err(Msg)
	Response.Write(Msg)
	Response.End()
End Sub

Function myCdbl(str)
	If str = "" Or Not IsNumeric(str) Then
		Call Page_Err("参数错误：要求为数字型。")
		Else
			myCdbl = Cdbl(str)
	End If
End Function

Private Sub MessageBox(Msg,gotoUrl)
	Response.Write("<script language=""javascript"">")
	Response.Write("alert(""" & Msg & """);")
	If gotoUrl="" Then
		Response.Write("history.back();")
		Else
			Response.Write("document.URL='" & gotoUrl & "';")
	End If
	Response.Write("</script>")
	Response.End()
End Sub
%>

<%sub imgArticle()%>
<script language="JavaScript" type="text/javascript">
				var focus_width=383
                var focus_height=608
                var text_height=20
                var swf_height = focus_height+text_height
				var imgUrl=new Array();
                var imgLink=new Array();
                var imgtext=new Array();
                var imgsumm=new Array();
                var adNum=0;
                var iNum =1;
				</script>
<%
set rs=server.createobject("adodb.recordset") 
sql="select top 6 * from FangBao_SmallClass where PicFile<>'' order by smallclassid asc"
rs.open sql,conn,1,1
	if rs.eof then 
	Response.Write " <div align='center'>期刊首版没有上传，请谅解!</div>"
	end if
DO WHILE Not rs.eof
%>
 <script language="JavaScript" type="text/javascript">
  imgUrl[iNum]= "<%=trim(rs("PicFile"))%>";
  imgtext[iNum]="<%=rs("BigClassName")%>【<%=rs("smallclassname")%>：<%=rs("banmian")%>】";
  imgLink[iNum]="Qpaper.asp?ID=<%=trim(rs("SmallClassID"))%>";
  imgsumm[iNum]="";
  iNum = iNum +1;
  </script>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>
 <script language="JavaScript" type="text/javascript">
   var pics = "";
   var links="";
   var  texts = "";
   for(i=1;i<iNum;i++)
   {
       if(i !=1)
	   {
	     pics = pics + '|';
		 links = links + '|';
		 texts = texts + '|';
       } 
	   pics = pics + imgUrl[i];
	   links =  links + imgLink[i];
	   texts = texts + imgtext[i];
    }
document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#BBE5A6">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
document.write('<embed ID="focus_flash" src="images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');		
document.write('</object>');
        </script>
<%end sub %>