asp静态生成，伪静态
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!-- #include file="../configinc/conndb.asp"-->
<!--#include file="../configinc/function.asp"-->
<%
keys=request.QueryString("keys")
dim objXmlHttp,binFileData,objAdoStream
if request("action")="index" then
call indexhtml()
response.Write "已更新 首页 页面！"&"<br>"
elseif request("action")="message" then
call messagehtml()
response.Write "已更新 在线留言 页面！"&"<br>"
else
'============================列表页开始======================================
ids=""
call lids(keys)
ids=keys&ids
set rsf=server.CreateObject("adodb.recordset")
rsf.open "select id from "&tables&" where lid in("&ids&") order by shijian desc",conn,1,1
do while not rsf.eof
strOut=ReadfromUTF(Server.MapPath("../")&"\asp\show_"&keys&".htm","utf-8")
'读取数据信息
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select site from "&table&" where id="&keys&" ",conn,3,3
left_site=rs1("site")
rs1.close
set rs1=nothing
'没有分类的左边显示
leftxx=""
if shangjis(keys)=99 then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select id,title from "&tables&" where lid="&keys&" ",conn,3,3
do while not rs1.eof
leftxx=leftxx&left_site
leftxx=Replace(leftxx,"{left_id}",rs1("id"))
leftxx=Replace(leftxx,"{left_title}",rs1("title"))
相关文档：
功能作用：ASP产生不重复的随机数（模拟游戏洗牌）
<%
function GetRnd(lowerNum,upperNum)
Dim unit,RndNum,Fun_X
unit = upperNum - lowerNum
Redim MyArray(unit)
For Fun_I=0 To unit
myArray(Fun_I)= lowerNum + Fun_I
Next
For Fun_I=0 To round(unit)
RndNum ......
asp衔接Mssql的办法及常见的差错
//第一种写法：
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * from TABLE ORDER BY ID DESC"
R ......
2.1 ASP.net 入门
通常谈一个学科，我们老是说，它入门很简单的嘛，ASP.net也是。ASP.net提出一个概念，就是认为WEB页面，也是一个窗体，所以，学习过面向对象编程的VB VC BC Dephi的朋友，学起来就简单多了。
一个ASP.net页面的后缀名是".aspx"，所以，IIS在你安装完ASP.net时，也会把Default.aspx作为你的默认 ......
ASP的漏洞已经算很少的了，想要找到数据库的实际位置也不简单，但这不表明黑客无孔可入，也正是这个观点，一般的程序设计员常常忘记仔细的检查是否有漏洞，所以才有可能导致网站资料被窃取的事件发生。今天我在这里和大家谈谈ASP常见的安全漏洞，以引起大家的重视及采取有效的防范措施。(注意，在本文中所介绍的方法请� ......
1.记录集关闭之前再次打开:
------------------------------------
sql="select * from test"
rs.open sql,conn,1,1
if not rs.eof then
dim myName
myName=rs("name")
end if
sql="select * from myBook"
rs.open sql,conn,1,1
------------------------------------ ......
