📄 xinqing3.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<%
dim conn2,path
Set conn2= Server.CreateObject("ADODB.Connection")
path=Server.MapPath("blogdata/L-Blog.mdb")
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&path
sql="select * from my where id=1"
set object=conn2.execute(sql)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>关于站长</title>
</head>
<body background="image/back.gif">
<div align="center">
<table width="780" height="195" border="1" align="center">
<tr><td height="100"><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="780" height="100">
<param name="movie" value="image/heat_top.swf">
<param name="quality" value="high">
<embed src="image/heat_top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="100"></embed>
</object></td>
</tr>
<tr height="230">
<td height="180" align="center" valign="middle" bgcolor="#5C599D">
<table width="718" border="1">
<tr align="center">
<td height=32 align="left">
<%
set conn2=server.CreateObject("ADODB.connection")
path=Server.MapPath("AnswerData.mdb")
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&path
Set rs =server.CreateObject("ADODB.Recordset")
rs.open "select * from xinqing where id>20 and id<31",conn2,1,1
If rs.eof Then
response.Write"数据表为空"
else
page=request.querystring("page")
rs.PageSize=10
if page<1 then page=1
if page>rs.PageCount then page=rs.PageCount
rs.AbsolutePage=page
End If
%>
<%
for ipage=1 to rs.PageSize
newsTitle=replace(rs("title")," ","")
if len(newsTitle)>20 then
newsTitle=left(newsTitle,19)&"..."
end if
%>
<ul>
<li><a href="xianshixinqing.asp?id=<%=rs("id")%>"><%=rs("title")%></a></li>
</ul>
<%
rs.movenext
if rs.eof then
Exit for
end if
next
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr><td>
<table bgcolor="#5C599D">
<tr><td width="780"><marquee direction="right"><font size="-1" color="#FFFFFF">欢迎光临本站</font>
</marquee></td></tr>
<tr>
<td align="center" width="680"><font size="-1" color="#FFFFFF">联系站长： </font></td>
<td align="center" width="60"><font size="-1"><a href="guanli.asp">小站管理</a></font></td>
</tr>
<tr><td height="14" align="center"><font size="-1" color="#FFFFFF">站长QQ</font></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
<div align="center">
</div>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -