📄 findex.asp
字号:
<%
dim db_path,connm,myconnm
db_path="../Databases/vicndatadata.mdb"
Set Connm = Server.CreateObject("ADODB.Connection")
myconnm="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db_path&"")
Connm.Open myconnm
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../Flash图片滚动展示系统/style.css" rel="stylesheet" type="text/css" />
<title></title>
<base target="_blank">
<style type="text/css">
<!--
body {
background-color: #ffffff;
}
-->
</style></head>
<body leftmargin="0" topmargin="0">
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
width=772>
<TR>
<TD vAlign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tbody>
<tr>
<td height="2" background="../pic/e4e4e4.gif"></td>
</tr>
<tr>
<td width="100%" height="200" bgcolor="#FFFFFF" style="padding-right:0px;padding-left:0px;">
<!--------------------->
<%
dim conn
dim connstr,datafile
datafile="../Databases/vicndatadata.mdb"
on error resume next
connstr="DBQ="+server.mappath(datafile)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql5="select * from config"
set rs5=conn.execute(sql5)
MaxWidth=cint(rs5("picWidth"))
MaxHeight=cint(rs5("picHeight"))
ShowCount=split(rs5("ShowCount"),",")
if cint(ShowCount(1))=1 then
recRow=2
recHeight=(cint(ShowCount(0))/2)*160+40
else
recRow=4
recHeight=(cint(ShowCount(0))/4)*160+40
end if
if cint(ShowCount(3))=1 then
hotRow=2
hotHeight=(cint(ShowCount(2))/2)*160+40
else
hotRow=4
hotHeight=(cint(ShowCount(2))/4)*160+40
end if
if cint(ShowCount(5))=1 then
newRow=2
newHeight=(cint(ShowCount(4))/2)*160+40
else
newRow=4
newHeight=(cint(ShowCount(4))/4)*160+40
end if
Sub rsclose()
rs.close()
set rs=nothing
End Sub
Sub connclose()
conn.close()
set conn=nothing
End Sub
%>
<%
if request("style")="update" then
alink=request("alink")
aimage=request("aimage")
atext=request("atext")
blink=request("blink")
bimage=request("bimage")
btext=request("btext")
clink=request("clink")
cimage=request("cimage")
ctext=request("ctext")
dlink=request("dlink")
dimage=request("dimage")
dtext=request("dtext")
elink=request("elink")
eimage=request("eimage")
etext=request("etext")
image_width=request("image_width")
image_height=request("image_height")
text_height=request("text_height")
sql="select * from flash"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("alink")=alink
rs("aimage")=aimage
rs("atext")=atext
rs("blink")=blink
rs("bimage")=bimage
rs("btext")=btext
rs("clink")=clink
rs("cimage")=cimage
rs("ctext")=ctext
rs("dlink")=dlink
rs("dimage")=dimage
rs("dtext")=dtext
rs("elink")=elink
rs("eimage")=eimage
rs("etext")=etext
rs("image_width")=image_width
rs("image_height")=image_height
rs("text_height")=text_height
rs.update
rsclose
end if
%>
<%
sql1="select * from [flash]"
set rs=server.CreateObject("Adodb.recordset")
rs.open sql1,conn,1,1
%>
<DIV class="p_1">
<script language=javascript>
var focus_width=<%=rs("image_width")%>
var focus_height=<%=rs("image_height")%>
var text_height=<%=rs("text_height")%>
var swf_height = focus_height+text_height
var pics = '';
var links = '';
var texts = '';
function ati(url, img, title)
{
if(pics != '')
{
pics = "|" + pics;
links = "|" + links;
texts = "|" + texts;
}
pics = escape(img) + pics;
links = escape(url) + links;
texts = title + texts;
}
</script>
<script language=javascript>
ati('<%=rs("alink")%>', '<%=rs("aimage")%>', '<%=rs("atext")%>');
ati('<%=rs("blink")%>', '<%=rs("bimage")%>', '<%=rs("btext")%>');
ati('<%=rs("clink")%>', '<%=rs("cimage")%>', '<%=rs("ctext")%>');
ati('<%=rs("dlink")%>', '<%=rs("dimage")%>', '<%=rs("dtext")%>');
ati('<%=rs("elink")%>', '<%=rs("eimage")%>', '<%=rs("etext")%>');
document.write('<embed src="pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#DADADA" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash"/>');
</script>
<!---------------------> </td>
</tr>
</tbody>
</table>
</TD>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -