注：本人安装的是Windows 7 RC 7100 32位中文旗舰版 。
在Windows 7下面IIS7的安装方法：
一、进入Windows 7的 控制面板
，选择左侧的 打开或关闭Windows功能
。
二、现在出现了安装Windows功能的选项菜单
，注意选择的项目，我们需要手动选择
需要的功能，下面这张图片把需要安装的服务都已经选择了，大家可以按照图片勾选功能。
三、安装完成后，再次进入 控制面板
，选择 管理工具
，双击 Internet(IIS)管理器
选项，进入IIS设置。
四、现在进入到IIS7控制面板。
五、选择 Default Web Site
，并双击 ASP
的选项，
六、IIS7中ASP 父路径
是没有启用的，要 开启父路径
，选择True，搞定父路径选项。
七、配置IIS7的站点。 单击右边的 高级设置
选项，可以设置网站的目录。
八、点击右侧的 绑定...
，设置网站的 端口
。
九、点击 默认文档
， 设置网站的默认文档。
如有问题欢迎提出来，共同探讨。 ......

<%@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&" ......

conndb.asp
<%
Session.CodePage=65001
response.Charset="utf-8"
%>
<%
'数据库连接文件
dim conn
dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+server.mappath("../date/#heihuhuhuajian.mdb")+";Jet OLEDB:Database Password=;"
set conn=server.createobject("ADODB.CONNECTION")
On Error Resume Next
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
%>
<%
'数据库表文件
'全局变量，方便程序的整体转移,这几个变量为核心变量。
dim table,tables,config
table="xinwen_fenlei" '定义分类表单的名称
tables="news" '定义存储数据表单的名称
config="class_config" '定义分类属性表单的名称
picwenzi="www.xx.cn" '定义水印图片的文字
pickuandu=400 '定义缩略图的宽度
picgaodu=400 '定义缩略图的高度
pickuandu_xiao=105 '定义缩略图的宽度
pi ......

<%
'下面是最具技术含量的函数了，哈哈~
'增加数据库字段
function addziduan(ziduanming,ziduanleixing)
on error resume next
fldname = ziduanming
if ziduanleixing=1 or ziduanleixing=4 then
fldtype = "VarChar"
fldsize = 255
elseif ziduanleixing=2 or ziduanleixing=3 then
fldtype = "Text"
fldsize = ""
end if
fldnull = "ON"
fldautoincrement = ""
table_name = tables
if fldname <> "" and fldtype <> "" then
sql = "alter table [" & table_name & "] add ["&fldname&"] " & fldtype

if fldsize <> "" then
sql = sql & "(" & fldsize & ")"
end if
if fldnull <> "ON" then
sql = sql & " not null"
end if
conn.execute(sql)
if err <> 0 then
response.Write "<input type='button' name='ok' value=' 返 回 ' onClick='javascript: ......

<%
set rs=server.CreateObject("adodb.recordset")
ids=""
call lids(keys)
ids=keys&ids
sql="select id,title,pic_xiao,content from "&tables&" where lid in("&ids&") "

if request("keys_title")<>"" then
sql=sql&" and title like '%"&request("keys_title")&"%' "
end if
sql=sql&" order by shijian desc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
Response.Write "产品整理中..."
else
rs.pagesize=12
page=clng(request.QueryString("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
j=0
for i = 1 to rs.pagesize
%>

<%
if page=1 then
response.Write(& ......

原版
upload_5xsoft.inc 文件内容
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
dim Data_5xsoft
Class upload_5xsoft
  
dim objForm,objFile,Version
Public function Form(strForm)
       strForm=lcase(strForm)
       if not objForm.exists(strForm) then
         Form=""
       else
         Form=objForm(strForm)
       end if
end function
Public function File(strFile)
       strFile=lcase(strFile)
       if not objFile.exists(strFile) then
         set File=new FileInfo
       else
         set File=objFile(strFile)
       end if
end function
Pr ......