功能：根据你的查询情况，姓名每查询一下，就自动生成姓名，和列表页。
如果重复的姓名查询，则直接转到相应的页面下。
演示：http://comika.net.cn/
核心代码很简单
set fso=Server.CreateObject("Scripting.FileSystemObject")
fpath=server.MapPath(xing&"/")
response.Write(fpath)
If fso.FolderExists(fpath) then
set f=fso.CreateTextFile(fpath&"\"&xm&".html",2,true)
nr=replace(nr,vbcrlf,"")
f.write(nr)
set f=nothing
set f=fso.CreateTextFile(fpath&"\index.html",2,true)
xlist=rFile("xing.html")
xlist=replace(xlist,"$$xing$$",xing)
xlist=replace(xlist,"$$all$$",mkList(xing))
f.write(xlist)
set f=nothing
Else
fso.CreateFolder(fpath)
fso.CreateTextFile(fpath&"\"&xm&".html")
set f=fso.CreateTextFile(fpath&"\"&xm&".html",2,true)
nr=replace(nr,vbcrlf,"")
f.write(nr)
set f=nothing
set f=fso.CreateTextFile(fpath&"\index.html",2,true)
xlist=rFile("xing.html")
xlist=replace(xlist,"$$xing$$",xing)
xlist=replace(xlist,"$$all$$",mkList(xing))
f.write(xlist)
set f=nothing
End if