网站源码放入WORD文档问题
帮人找了个打包的网站ASP源码里边ASP文件比较多这些源码怎样放入WORD帮人找了个打包的网站ASP源码里边ASP文件比较多都复制过去比较乱这些源码按怎样顺序放入WORD...
帮人找了个打包的网站ASP源码 里边ASP文件比较多 这些源码怎样放入WORD
帮人找了个打包的网站ASP源码 里边ASP文件比较多 都复制过去比较乱
这些源码按怎样顺序放入WORD好呢？ 或者是只复制index行吗？ 展开
帮人找了个打包的网站ASP源码 里边ASP文件比较多 都复制过去比较乱
这些源码按怎样顺序放入WORD好呢？ 或者是只复制index行吗？ 展开
3个回答
展开全部
<!--#include file="include/conn1.asp" -->
<% dim schoolname,address,postmode,email,phone,bbs,sql,ntext,dday
timeset="0"
startime=timer()
if session("schoolname")="" then
set bbs=conn.execute("select * from school where used=true")
schoolname=bbs("schoolname")
address=bbs("address")
postmode=bbs("postmode")
email=bbs("email")
phone=bbs("phone")
session("schoolname")=schoolname
session("address")=address
session("email")=email
session("phone")=phone
session("postmode")=postmode
set bbs=nothing
else
schoolname=session("schoolname")
address=session("address")
postmode=session("postmode")
email=session("email")
phone=session("phone")
end if
%>
<html>
<head>
<title><%=schoolname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#ffffff" background="images/bg.gif" leftmargin="0" topmargin="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/spacer.gif" width="256" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="296" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="226" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top_r1_c1" src="images/top_r1_c1.jpg" width="256" height="156" border="0" alt=""></td>
<td><img name="top_r1_c2" src="images/top_r1_c2.jpg" width="296" height="156" border="0" alt=""></td>
<td><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="226" height="156">
<param name="movie" value="images/top.swf">
<param name="quality" value="high">
<embed src="images/top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="226" height="156"></embed>
</object></td>
<td><img src="images/spacer.gif" width="1" height="156" border="0" alt=""></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="ha">
<tr>
<td><img src="images/menu.jpg" width="778" height="60" border="0" usemap="#Map"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/2/spacer.gif" width="55" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="133" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="39" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="41" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="291" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="41" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="153" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="25" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td colspan="5"><img name="top1_r1_c1" src="images/2/top1_r1_c1.gif" width="559" height="48" border="0" alt=""></td>
<td><img name="top1_r1_c6" src="images/2/top1_r1_c6.gif" width="41" height="48" border="0" alt=""></td>
<td colspan="2"><img name="top1_r1_c7" src="images/2/top1_r1_c7.gif" width="178" height="48" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="48" border="0" alt=""></td>
</tr>
<tr>
<td colspan="4"><img name="top1_r2_c1" src="images/2/top1_r2_c1.gif" width="268" height="11" border="0" alt=""></td>
<td rowspan="4" valign="middle" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="2">
<% sql="select top 6 id,title,addtime from article where boardid=1 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
ntext=rs("title")
if len(ntext)>12 then
ntext=mid(ntext,1,12)&"...."
end if
dday=day(rs("addtime"))
if cint(dday)<10 then dday="0"&dday%>
<tr>
<td width="5%"><div align="center"><img src="images/arrow02.gif" width="4" height="7"></div></td>
<td width="67%"><a href="main/shownews.asp?id=<%=rs("id")%>"><font size="2" class="text"><%=ntext%></font></a></td>
<td width="28%"><font size="2">【<%=month(rs("addtime"))%>月<%=dday%>日】</font></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<div align="right"><font size="2"><a href="main/news.asp" target="_blank">更多>></a></font>
</div></td>
<td rowspan="7"><img name="top1_r2_c6" src="images/2/top1_r2_c6.gif" width="41" height="190" border="0" alt=""></td>
<% sql="select * from article where boardid=4 and ifshow=1 order by id desc"
set rs=conn.execute(sql)%>
<td rowspan="5" bgcolor="#FFFFFF"> <marquee direction="up" height="140" onMouseOver=this.stop(); onMouseOut=this.start(); scrollamount=2>
<font color="#0000FF" size="2"><strong><%=rs("title")%></strong></font><br>
<br>
<font size="2"><%=rs("content")%></font><br>
<br>
<font size="2"><strong><font color="#0033FF">发布时间：</font></strong><font color="#CC0000"><%=month(rs("addtime"))%>月<%=day(rs("addtime"))%>日</font></font>
</marquee></td>
<% rs.close %>
<td rowspan="9"><img name="top1_r2_c8" src="images/2/top1_r2_c8.gif" width="25" height="330" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="11" border="0" alt=""></td>
</tr>
<% sql=" select * from picnews where ifshow=1 order by picid desc"
set rs=conn.execute(sql)
ntext=rs("pictitle")
if len(ntext)>8 then
ntext=mid(ntext,1,8)&"...."
end if %>
<tr>
<td rowspan="8"><img name="top1_r3_c1" src="images/2/top1_r3_c1.gif" width="55" height="319" border="0" alt=""></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="<%=rs("picurl")%>" target="_blank"><img src="admin/<%=rs("imgurl")%>" border="0"></a></div></td>
<td rowspan="6" colspan="2"><img name="top1_r3_c3" src="images/2/top1_r3_c3.gif" width="80" height="179" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="98" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r4_c2" src="images/2/top1_r4_c2.gif" width="133" height="15" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="15" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="3" bgcolor="#FFFFFF"><div align="center"><font size="2"><a href="<%=rs("picurl")%>" target="_blank"><%=rs("pictitle")%></a></font></div></td>
<td><img src="images/2/spacer.gif" width="1" height="16" border="0" alt=""></td>
</tr>
<% rs.close %>
<tr>
<td rowspan="3"><img name="top1_r6_c5" src="images/2/top1_r6_c5.gif" width="291" height="50" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="5" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="top1_r7_c7" src="images/2/top1_r7_c7.gif" width="153" height="45" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="6" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r8_c2" src="images/2/top1_r8_c2.gif" width="133" height="39" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="39" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r9_c2" src="images/2/top1_r9_c2.gif" width="133" height="119" border="0" alt=""></td>
<td rowspan="2"><img name="top1_r9_c3" src="images/2/top1_r9_c3.gif" width="39" height="140" border="0" alt=""></td>
<td colspan="4" bgcolor="#FFFFFF"><iframe src="scroll.htm" name="I3" width="99%" marginwidth="1" height="110" marginheight="1" scrolling="No" frameborder="0" id="I3"></iframe></td>
<td><img src="images/2/spacer.gif" width="1" height="119" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r10_c2" src="images/2/top1_r10_c2.gif" width="133" height="21" border="0" alt=""></td>
<td colspan="4"><img name="top1_r10_c4" src="images/2/top1_r10_c4.gif" width="526" height="21" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="21" border="0" alt=""></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="29"><img src="images/1/spacer.gif" width="29" height="1" border="0" alt=""></td>
<td width="36"><img src="images/1/spacer.gif" width="36" height="1" border="0" alt=""></td>
<td width="151"><img src="images/1/spacer.gif" width="151" height="1" border="0" alt=""></td>
<td width="36"><img src="images/1/spacer.gif" width="36" height="1" border="0" alt=""></td>
<td width="233"><img src="images/1/spacer.gif" width="233" height="1" border="0" alt=""></td>
<td width="42"><img src="images/1/spacer.gif" width="42" height="1" border="0" alt=""></td>
<td width="223"><img src="images/1/spacer.gif" width="223" height="1" border="0" alt=""></td>
<td width="28"><img src="images/1/spacer.gif" width="28" height="1" border="0" alt=""></td>
<td width="20"><img src="images/1/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td colspan="8"><img name="n4a_r1_c1" src="images/1/4a_r1_c1.gif" width="778" height="45" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="45" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="8"><img name="n4a_r2_c1" src="images/1/4a_r2_c1.gif" width="29" height="355" border="0" alt=""></td>
<td colspan="2" rowspan="4" valign="middle" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="2">
<% sql="select top 6 id,title from article where boardid=18 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
ntext=rs("title")
if len(ntext)>10 then
ntext=mid(ntext,1,10)&"...."
end if
%>
<tr>
<td width="9%"><div align="center"><img src="images/arrow02.gif" width="4" height="7"></div></td>
<td width="91%"><a href="main/shownews.asp?id=<%=rs("id")%>"><font size="2" class="text"><%=ntext%></font></a></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<br>
<div align="right"><font size="2">更多>> </font></div></td>
<td rowspan="5"><img name="n4a_r2_c4" src="images/1/4a_r2_c4.gif" width="36" height="217" border="0" alt=""></td>
<td rowspan="3" valign="top" background="images/1/4a_r2_c5.gif"> 汉沽区第一幼儿园，始建于1960年，前身为
“天津市汉沽区幼儿园”。1980年，更名为“汉沽区第一幼儿园”。园所占地面积4799平方米，园舍建筑面积2244平方米。全园共有9个教学班，教职工35人，是天津市一级园。<br>
多年来，汉沽一幼坚持“一切为了孩子，服务于家长，服务于社会”的办园宗旨，坚持走“科学管理，科研兴园”之路，始终走在......<br>
<span class="text"><font size="2"> <a href="main/info.asp" target="_blank">更多</a>>></font></span></td>
<td colspan="3"><img name="n4a_r2_c6" src="images/1/4a_r2_c6.gif" width="293" height="18" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="18" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="7"><img name="n4a_r3_c6" src="images/1/4a_r3_c6.gif" width="42" height="337" border="0" alt=""></td>
<td valign="bottom" bgcolor="#FFFFFF"> <table width="99%" border="0" cellspacing="0" cellpadding="2">
<% sql="select top 4 id,title from article where classid=5 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
ntext=rs("title")
if len(ntext)>12 then
ntext=mid(ntext,1,12)&"...."
end if
%>
<tr>
<td width="9%"><div align="center"><img src="images/arrow02.gif" width="4" height="7"></div></td>
<td width="91%"><a href="main/showqh.asp?id=<%=rs("id")%>"><font size="2" class="text"><%=ntext%></font></a></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<br> <div align="right"><font size="2">更多>></font></div></td>
<td rowspan="7"><img name="n4a_r3_c8" src="images/1/4a_r3_c8.gif" width="28" height="337" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="119" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="n4a_r4_c7" src="images/1/4a_r4_c7.gif" width="223" height="43" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="37" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="n4a_r5_c5" src="images/1/4a_r5_c5.gif" width="233" height="43" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="6" border="0" alt=""></td>
</tr>
<tr>
<% dim picurl,gamesurl
sql="select id,picurl,gamesurl from games where ifhead=1 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
picurl=rs("picurl")
gamesurl=rs("gamesurl")
picurl=replace(picurl,"uploadimage","admin/uploadimage")
gamesurl=replace(gamesurl,"uploadimage","admin/uploadimage") %>
<td colspan="2"><img name="n4a_r6_c2" src="images/1/4a_r6_c2.gif" width="187" height="37" border="0" alt=""></td>
<td rowspan="2" bgcolor="#FFFFFF"><div align="center"><a href="<%=gamesurl%>" target="_blank"><img src="<%=picurl%>" width="200" height="120" border="0"></a></div></td>
<td><img src="images/1/spacer.gif" width="1" height="37" border="0" alt=""></td>
</tr>
<% rs.close %>
<tr>
<td rowspan="3"><img name="n4a_r7_c2" src="images/1/4a_r7_c2.gif" width="36" height="138" border="0" alt=""></td>
<td colspan="3" rowspan="2" bgcolor="#FFFFFF"><iframe src="scroll2.htm" name="I4" width="99%" marginwidth="1" height="110" marginheight="1" scrolling="No" frameborder="0" id="I4"></iframe></td>
<td><img src="images/1/spacer.gif" width="1" height="110" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="n4a_r8_c7" src="images/1/4a_r8_c7.gif" width="223" height="28" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="8" border="0" alt=""></td>
</tr>
<tr>
<td colspan="3"><img name="n4a_r9_c3" src="images/1/4a_r9_c3.gif" width="420" height="20" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="20" border="0" alt=""></td>
</tr>
</table>
<% dim length,cc,path,vtop,vip,vips,vtoday,vyesterday,vstarttime,vtodaytime,vsaveips,vmax,vmaxtime
sql="select * from counter where used=1"
rs.open sql,conn,1,2
length=rs("lengh")
path=rs("path")
' 网页立即过期，防止漏统计
Response.Expires = -1
' 检查客户端IP
vip=Request.ServerVariables("Remote_Addr")
'如果已经存在统计数据
vtop=rs("number")
vips=rs("vips")
vtoday=rs("vtoday")
vyesterday=rs("vyesterday")
vstarttime=rs("vstartime")
vtodaytime=rs("vtodaytime")
vsaveips=rs("vsaveips")
vmax=rs("vmax")
vmaxtime=rs("vmaxtime")
'向现有数据中追加值
vtop=vtop+1
if instr(vsaveips,"#" & vip & "#")=false then
vips=vips+1
if cdate(vtodaytime)=date() then
vtoday=vtoday+1
else
vyesterday=vtoday
vtoday=1
vtodaytime=date()
end if
if clng(vtoday)>clng(vmax) then
vmax=vtoday
vmaxtime=date()
end if
vsaveips=left(vsaveips,len(vsaveips)-1)
vsaveips=right(vsaveips,len(vsaveips)-1)
howip=split(vsaveips,"#")
if ubound(howip) < 40 then
vsaveips="#" & vsaveips & "#" & vip & "#"
else
vsaveips=replace("#" & vsaveips,"#" & howip(0) & "#","#") & "#" & vip & "#"
end if
'写入数据文件
'写入数据库
end if
' 关闭数据对象
rs.close
'将数据写入数据库
sql="select * from counter where used=1"
rs.open sql,conn,1,2
rs("number")=vtop
rs("vips")=vips
rs("vtoday")=vtoday
rs("vyesterday")=vyesterday
rs("vtodaytime")=vtodaytime
rs("vmax")=vmax
rs("vmaxtime")=vmaxtime
rs("vsaveips")=vsaveips
rs.update
rs.close
set conn=nothing
%>
<table width="778" height="140" border="0" align="center" cellpadding="0" cellspacing="0" background="images/end.gif">
<tr>
<td width="268" height="120">
<div align="center"><span class="ha"><font color="#0000FF" size="2" face="宋体">网站访问量：</font></span>
<br>
<% cc=length-len(vtop)
for i=1 to cc %><img src="<%=path%>/0.gif"><% next %>
<% for i=1 to len(vtop)%><img src="<%=path%>/<%=mid(vtop,i,1)%>.gif"><% next %>
</div></td><% endtime=timer() %>
<td width="510"> <div align="center" class="ha"><font color="#FFFFFF" size="2" face="宋体"><font color="#FF6600">学校名称：</font><font color="#0000FF"><%=schoolname%> <font color="#FF6600">电话：</font><%=phone%><br>
<font color="#FF6600">地址：</font><%=address%> <font color="#FF6600">邮政编码：</font><%=postmode%> <br>
<font color="#FF6600">页面运行时间：</font><%=FormatNumber((endtime-startime)*1000,3)%><font color="#FF6600">毫秒 </font></font></font></div>
<div align="left"><font color="#0000FF" size="2"></font></div></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="16,8,116,40" href="main/info.asp" target="_blank">
<area shape="rect" coords="144,9,242,41" href="main/news.asp" target="_blank">
<area shape="rect" coords="274,9,374,42" href="main/teacher.asp" target="_blank">
<area shape="rect" coords="401,8,503,42" href="main/huodong.asp" target="_blank">
<area shape="rect" coords="534,8,632,41" href="main/jtsh.asp" target="_blank">
<area shape="rect" coords="665,8,762,41" href="bbs/index.asp" target="_blank">
</map>
</body>
</html>
<% dim schoolname,address,postmode,email,phone,bbs,sql,ntext,dday
timeset="0"
startime=timer()
if session("schoolname")="" then
set bbs=conn.execute("select * from school where used=true")
schoolname=bbs("schoolname")
address=bbs("address")
postmode=bbs("postmode")
email=bbs("email")
phone=bbs("phone")
session("schoolname")=schoolname
session("address")=address
session("email")=email
session("phone")=phone
session("postmode")=postmode
set bbs=nothing
else
schoolname=session("schoolname")
address=session("address")
postmode=session("postmode")
email=session("email")
phone=session("phone")
end if
%>
<html>
<head>
<title><%=schoolname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#ffffff" background="images/bg.gif" leftmargin="0" topmargin="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/spacer.gif" width="256" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="296" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="226" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top_r1_c1" src="images/top_r1_c1.jpg" width="256" height="156" border="0" alt=""></td>
<td><img name="top_r1_c2" src="images/top_r1_c2.jpg" width="296" height="156" border="0" alt=""></td>
<td><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="226" height="156">
<param name="movie" value="images/top.swf">
<param name="quality" value="high">
<embed src="images/top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="226" height="156"></embed>
</object></td>
<td><img src="images/spacer.gif" width="1" height="156" border="0" alt=""></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="ha">
<tr>
<td><img src="images/menu.jpg" width="778" height="60" border="0" usemap="#Map"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/2/spacer.gif" width="55" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="133" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="39" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="41" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="291" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="41" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="153" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="25" height="1" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td colspan="5"><img name="top1_r1_c1" src="images/2/top1_r1_c1.gif" width="559" height="48" border="0" alt=""></td>
<td><img name="top1_r1_c6" src="images/2/top1_r1_c6.gif" width="41" height="48" border="0" alt=""></td>
<td colspan="2"><img name="top1_r1_c7" src="images/2/top1_r1_c7.gif" width="178" height="48" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="48" border="0" alt=""></td>
</tr>
<tr>
<td colspan="4"><img name="top1_r2_c1" src="images/2/top1_r2_c1.gif" width="268" height="11" border="0" alt=""></td>
<td rowspan="4" valign="middle" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="2">
<% sql="select top 6 id,title,addtime from article where boardid=1 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
ntext=rs("title")
if len(ntext)>12 then
ntext=mid(ntext,1,12)&"...."
end if
dday=day(rs("addtime"))
if cint(dday)<10 then dday="0"&dday%>
<tr>
<td width="5%"><div align="center"><img src="images/arrow02.gif" width="4" height="7"></div></td>
<td width="67%"><a href="main/shownews.asp?id=<%=rs("id")%>"><font size="2" class="text"><%=ntext%></font></a></td>
<td width="28%"><font size="2">【<%=month(rs("addtime"))%>月<%=dday%>日】</font></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<div align="right"><font size="2"><a href="main/news.asp" target="_blank">更多>></a></font>
</div></td>
<td rowspan="7"><img name="top1_r2_c6" src="images/2/top1_r2_c6.gif" width="41" height="190" border="0" alt=""></td>
<% sql="select * from article where boardid=4 and ifshow=1 order by id desc"
set rs=conn.execute(sql)%>
<td rowspan="5" bgcolor="#FFFFFF"> <marquee direction="up" height="140" onMouseOver=this.stop(); onMouseOut=this.start(); scrollamount=2>
<font color="#0000FF" size="2"><strong><%=rs("title")%></strong></font><br>
<br>
<font size="2"><%=rs("content")%></font><br>
<br>
<font size="2"><strong><font color="#0033FF">发布时间：</font></strong><font color="#CC0000"><%=month(rs("addtime"))%>月<%=day(rs("addtime"))%>日</font></font>
</marquee></td>
<% rs.close %>
<td rowspan="9"><img name="top1_r2_c8" src="images/2/top1_r2_c8.gif" width="25" height="330" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="11" border="0" alt=""></td>
</tr>
<% sql=" select * from picnews where ifshow=1 order by picid desc"
set rs=conn.execute(sql)
ntext=rs("pictitle")
if len(ntext)>8 then
ntext=mid(ntext,1,8)&"...."
end if %>
<tr>
<td rowspan="8"><img name="top1_r3_c1" src="images/2/top1_r3_c1.gif" width="55" height="319" border="0" alt=""></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="<%=rs("picurl")%>" target="_blank"><img src="admin/<%=rs("imgurl")%>" border="0"></a></div></td>
<td rowspan="6" colspan="2"><img name="top1_r3_c3" src="images/2/top1_r3_c3.gif" width="80" height="179" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="98" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r4_c2" src="images/2/top1_r4_c2.gif" width="133" height="15" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="15" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="3" bgcolor="#FFFFFF"><div align="center"><font size="2"><a href="<%=rs("picurl")%>" target="_blank"><%=rs("pictitle")%></a></font></div></td>
<td><img src="images/2/spacer.gif" width="1" height="16" border="0" alt=""></td>
</tr>
<% rs.close %>
<tr>
<td rowspan="3"><img name="top1_r6_c5" src="images/2/top1_r6_c5.gif" width="291" height="50" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="5" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="top1_r7_c7" src="images/2/top1_r7_c7.gif" width="153" height="45" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="6" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r8_c2" src="images/2/top1_r8_c2.gif" width="133" height="39" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="39" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r9_c2" src="images/2/top1_r9_c2.gif" width="133" height="119" border="0" alt=""></td>
<td rowspan="2"><img name="top1_r9_c3" src="images/2/top1_r9_c3.gif" width="39" height="140" border="0" alt=""></td>
<td colspan="4" bgcolor="#FFFFFF"><iframe src="scroll.htm" name="I3" width="99%" marginwidth="1" height="110" marginheight="1" scrolling="No" frameborder="0" id="I3"></iframe></td>
<td><img src="images/2/spacer.gif" width="1" height="119" border="0" alt=""></td>
</tr>
<tr>
<td><img name="top1_r10_c2" src="images/2/top1_r10_c2.gif" width="133" height="21" border="0" alt=""></td>
<td colspan="4"><img name="top1_r10_c4" src="images/2/top1_r10_c4.gif" width="526" height="21" border="0" alt=""></td>
<td><img src="images/2/spacer.gif" width="1" height="21" border="0" alt=""></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="29"><img src="images/1/spacer.gif" width="29" height="1" border="0" alt=""></td>
<td width="36"><img src="images/1/spacer.gif" width="36" height="1" border="0" alt=""></td>
<td width="151"><img src="images/1/spacer.gif" width="151" height="1" border="0" alt=""></td>
<td width="36"><img src="images/1/spacer.gif" width="36" height="1" border="0" alt=""></td>
<td width="233"><img src="images/1/spacer.gif" width="233" height="1" border="0" alt=""></td>
<td width="42"><img src="images/1/spacer.gif" width="42" height="1" border="0" alt=""></td>
<td width="223"><img src="images/1/spacer.gif" width="223" height="1" border="0" alt=""></td>
<td width="28"><img src="images/1/spacer.gif" width="28" height="1" border="0" alt=""></td>
<td width="20"><img src="images/1/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td colspan="8"><img name="n4a_r1_c1" src="images/1/4a_r1_c1.gif" width="778" height="45" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="45" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="8"><img name="n4a_r2_c1" src="images/1/4a_r2_c1.gif" width="29" height="355" border="0" alt=""></td>
<td colspan="2" rowspan="4" valign="middle" bgcolor="#FFFFFF">
<table width="99%" border="0" cellspacing="0" cellpadding="2">
<% sql="select top 6 id,title from article where boardid=18 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
ntext=rs("title")
if len(ntext)>10 then
ntext=mid(ntext,1,10)&"...."
end if
%>
<tr>
<td width="9%"><div align="center"><img src="images/arrow02.gif" width="4" height="7"></div></td>
<td width="91%"><a href="main/shownews.asp?id=<%=rs("id")%>"><font size="2" class="text"><%=ntext%></font></a></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<br>
<div align="right"><font size="2">更多>> </font></div></td>
<td rowspan="5"><img name="n4a_r2_c4" src="images/1/4a_r2_c4.gif" width="36" height="217" border="0" alt=""></td>
<td rowspan="3" valign="top" background="images/1/4a_r2_c5.gif"> 汉沽区第一幼儿园，始建于1960年，前身为
“天津市汉沽区幼儿园”。1980年，更名为“汉沽区第一幼儿园”。园所占地面积4799平方米，园舍建筑面积2244平方米。全园共有9个教学班，教职工35人，是天津市一级园。<br>
多年来，汉沽一幼坚持“一切为了孩子，服务于家长，服务于社会”的办园宗旨，坚持走“科学管理，科研兴园”之路，始终走在......<br>
<span class="text"><font size="2"> <a href="main/info.asp" target="_blank">更多</a>>></font></span></td>
<td colspan="3"><img name="n4a_r2_c6" src="images/1/4a_r2_c6.gif" width="293" height="18" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="18" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="7"><img name="n4a_r3_c6" src="images/1/4a_r3_c6.gif" width="42" height="337" border="0" alt=""></td>
<td valign="bottom" bgcolor="#FFFFFF"> <table width="99%" border="0" cellspacing="0" cellpadding="2">
<% sql="select top 4 id,title from article where classid=5 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
ntext=rs("title")
if len(ntext)>12 then
ntext=mid(ntext,1,12)&"...."
end if
%>
<tr>
<td width="9%"><div align="center"><img src="images/arrow02.gif" width="4" height="7"></div></td>
<td width="91%"><a href="main/showqh.asp?id=<%=rs("id")%>"><font size="2" class="text"><%=ntext%></font></a></td>
</tr>
<% rs.movenext
loop
rs.close %>
</table>
<br> <div align="right"><font size="2">更多>></font></div></td>
<td rowspan="7"><img name="n4a_r3_c8" src="images/1/4a_r3_c8.gif" width="28" height="337" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="119" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="n4a_r4_c7" src="images/1/4a_r4_c7.gif" width="223" height="43" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="37" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="n4a_r5_c5" src="images/1/4a_r5_c5.gif" width="233" height="43" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="6" border="0" alt=""></td>
</tr>
<tr>
<% dim picurl,gamesurl
sql="select id,picurl,gamesurl from games where ifhead=1 and ifshow=1 order by id desc"
set rs=conn.execute(sql)
picurl=rs("picurl")
gamesurl=rs("gamesurl")
picurl=replace(picurl,"uploadimage","admin/uploadimage")
gamesurl=replace(gamesurl,"uploadimage","admin/uploadimage") %>
<td colspan="2"><img name="n4a_r6_c2" src="images/1/4a_r6_c2.gif" width="187" height="37" border="0" alt=""></td>
<td rowspan="2" bgcolor="#FFFFFF"><div align="center"><a href="<%=gamesurl%>" target="_blank"><img src="<%=picurl%>" width="200" height="120" border="0"></a></div></td>
<td><img src="images/1/spacer.gif" width="1" height="37" border="0" alt=""></td>
</tr>
<% rs.close %>
<tr>
<td rowspan="3"><img name="n4a_r7_c2" src="images/1/4a_r7_c2.gif" width="36" height="138" border="0" alt=""></td>
<td colspan="3" rowspan="2" bgcolor="#FFFFFF"><iframe src="scroll2.htm" name="I4" width="99%" marginwidth="1" height="110" marginheight="1" scrolling="No" frameborder="0" id="I4"></iframe></td>
<td><img src="images/1/spacer.gif" width="1" height="110" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="2"><img name="n4a_r8_c7" src="images/1/4a_r8_c7.gif" width="223" height="28" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="8" border="0" alt=""></td>
</tr>
<tr>
<td colspan="3"><img name="n4a_r9_c3" src="images/1/4a_r9_c3.gif" width="420" height="20" border="0" alt=""></td>
<td><img src="images/1/spacer.gif" width="1" height="20" border="0" alt=""></td>
</tr>
</table>
<% dim length,cc,path,vtop,vip,vips,vtoday,vyesterday,vstarttime,vtodaytime,vsaveips,vmax,vmaxtime
sql="select * from counter where used=1"
rs.open sql,conn,1,2
length=rs("lengh")
path=rs("path")
' 网页立即过期，防止漏统计
Response.Expires = -1
' 检查客户端IP
vip=Request.ServerVariables("Remote_Addr")
'如果已经存在统计数据
vtop=rs("number")
vips=rs("vips")
vtoday=rs("vtoday")
vyesterday=rs("vyesterday")
vstarttime=rs("vstartime")
vtodaytime=rs("vtodaytime")
vsaveips=rs("vsaveips")
vmax=rs("vmax")
vmaxtime=rs("vmaxtime")
'向现有数据中追加值
vtop=vtop+1
if instr(vsaveips,"#" & vip & "#")=false then
vips=vips+1
if cdate(vtodaytime)=date() then
vtoday=vtoday+1
else
vyesterday=vtoday
vtoday=1
vtodaytime=date()
end if
if clng(vtoday)>clng(vmax) then
vmax=vtoday
vmaxtime=date()
end if
vsaveips=left(vsaveips,len(vsaveips)-1)
vsaveips=right(vsaveips,len(vsaveips)-1)
howip=split(vsaveips,"#")
if ubound(howip) < 40 then
vsaveips="#" & vsaveips & "#" & vip & "#"
else
vsaveips=replace("#" & vsaveips,"#" & howip(0) & "#","#") & "#" & vip & "#"
end if
'写入数据文件
'写入数据库
end if
' 关闭数据对象
rs.close
'将数据写入数据库
sql="select * from counter where used=1"
rs.open sql,conn,1,2
rs("number")=vtop
rs("vips")=vips
rs("vtoday")=vtoday
rs("vyesterday")=vyesterday
rs("vtodaytime")=vtodaytime
rs("vmax")=vmax
rs("vmaxtime")=vmaxtime
rs("vsaveips")=vsaveips
rs.update
rs.close
set conn=nothing
%>
<table width="778" height="140" border="0" align="center" cellpadding="0" cellspacing="0" background="images/end.gif">
<tr>
<td width="268" height="120">
<div align="center"><span class="ha"><font color="#0000FF" size="2" face="宋体">网站访问量：</font></span>
<br>
<% cc=length-len(vtop)
for i=1 to cc %><img src="<%=path%>/0.gif"><% next %>
<% for i=1 to len(vtop)%><img src="<%=path%>/<%=mid(vtop,i,1)%>.gif"><% next %>
</div></td><% endtime=timer() %>
<td width="510"> <div align="center" class="ha"><font color="#FFFFFF" size="2" face="宋体"><font color="#FF6600">学校名称：</font><font color="#0000FF"><%=schoolname%> <font color="#FF6600">电话：</font><%=phone%><br>
<font color="#FF6600">地址：</font><%=address%> <font color="#FF6600">邮政编码：</font><%=postmode%> <br>
<font color="#FF6600">页面运行时间：</font><%=FormatNumber((endtime-startime)*1000,3)%><font color="#FF6600">毫秒 </font></font></font></div>
<div align="left"><font color="#0000FF" size="2"></font></div></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="16,8,116,40" href="main/info.asp" target="_blank">
<area shape="rect" coords="144,9,242,41" href="main/news.asp" target="_blank">
<area shape="rect" coords="274,9,374,42" href="main/teacher.asp" target="_blank">
<area shape="rect" coords="401,8,503,42" href="main/huodong.asp" target="_blank">
<area shape="rect" coords="534,8,632,41" href="main/jtsh.asp" target="_blank">
<area shape="rect" coords="665,8,762,41" href="bbs/index.asp" target="_blank">
</map>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
