📄 show_cd.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
datano=request("datano")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from DATA where datano='" & datano & "'"
rs.open sqlstr,conn,3,2
rs("hits")=rs("hits")+1
rs.update
content=rs("content")
rs.close
conn.close
%>
<HTML>
<HEAD>
<TITLE>CD内容解说</TITLE>
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</head>
<body bgcolor=ffffff marginheight=3 marginwidth=0 leftmargin=0 topmargin=3 bgproperties=fixed>
<center>
<img src=../img/chome.jpg width=298 height=88><br><br>
<table border=0 width=86%>
<tr><td><P Class=text2><%=content%></P></TD></TR>
</table><br>
<img src=../img/p.gif width=15 height=15><a href=edit_cd.asp?datano=<%=datano%>><font size=4>修改资料</font></a> <img src=../img/p.gif width=15 height=15><a href=del_cd.asp?datano=<%=datano%>><font size=4>删除资料</font></a><br>
<hr width=86%>
<font size=2><em>系统时间：<%=Now%></em> 程式设计 : <a href=http://chome.rich2000.com.tw>Chome</a></font> <a href=mailto:chinimin@ms6.hinet.net>站长信箱</a><br>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -