📄 xianshixinqing.asp

📁 我的小网站个人利用业余时间设计的

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>xianshiXinqing</title>
</head>

<body>
<div align="center">
<table width="780">
<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>
<% 
 dim txtid
 txtid=request("id")
 'response.write(txtid)
    on error resume next
set conn=server.CreateObject("ADODB.connection") 
 path=Server.MapPath("AnswerData.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&path
sql="select * from xinqing where cstr(id)='"&txtid&"'"
         set rs=server.CreateObject("adodb.recordset")
         rs.Open sql,conn,3,2
		 rs.movefirst
 %>
<td height="460">
<table align="center">
<tr><td align="center"><%=rs("title")%></td></tr>
<tr><td height="420">
    <textarea name="textarea" cols="80" rows="30"><%=rs("content")%></textarea>
	</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>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -