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"))
相关文档：
首先，一般操作系统默认均不安装IIS服务，因此必须先安装IIS服务。安装过程中，需要用到操作系统的安装盘，有些系统还需要特定版本的补丁。比如XP需要SP2。
此处不再介绍网站的属性配置，因为有诸多的文章都会将这方面的内容。
1。VISTA HOME BASIC
不能安装IIS服务
2。WINDOWS XP
需要确保在ASP网站目录的安� ......
<% '--------------------------------------------------------------------------------------------------
Set rs9 = Server.CreateObject("ADODB.RecordSet")
sqlstr="select * from 客户资料库 order by id desc"
rs9.open sqlstr,conn,1,3
%>
<%Set fs = server.CreateObject( ......
'函数名：CodeCookie
'作 用：Cookie防乱码写入时用
'参 数：str ---- 字符串
'返回值：整理后的字符串
'示 例：
'**************************************************
Public Function CodeCookie(str)
If is ......
<%
DirName="html\" '静态文件保存的目录，结尾应带"\"
foxrax=Request("foxrax")
if foxrax="" then
FileName=GetStr()&".html"
FileName=replace(FileName,"/","")'替换字符
FileName=replace(FileName,"?","&qu ......
注：本人安装的是Windows 7 RC 7100 32位中文旗舰版 。
在Windows 7下面IIS7的安装方法：
一、进入Windows 7的 控制面板
，选择左侧的 打开或关闭Windows功能
。
二、现在出现了安装Windows功能的选项菜单
，注意选择的项目，我们需要手动选择
需要的功能，下面这张图片把需要安装的服务都已经选择了，大家可以按照 ......
