落伍者站长论坛 » 免费代码及编程交流 » 根据查询生成html,用于本人新制作一姓名测试网站

zbsxcc 发表于 2008-7-20 00:11

根据查询生成html,用于本人新制作一姓名测试网站

姓名查询小站如下：
[url]http://comika.net.cn/[/url]
本站提供免费的姓名查询、测算服务。

功能：根据你的查询情况，姓名每查询一下，就自动生成姓名，和列表页。
如果重复的姓名查询，则直接转到相应的页面下。
大家感觉如何，

dylanok 发表于 2008-7-20 00:15

放源码，否则视为AD;)

zbsxcc 发表于 2008-7-20 00:43

为防止人家说我ＡＤ，核心代码很简单

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

sobvow 发表于 2008-7-20 02:03

OK。看到了研究一番

adamas 发表于 2008-7-20 03:31

:( 支持下。

hnxmw 发表于 2008-7-20 09:17

代码看不懂，因为技术很菜，但是共享的东西，我从来就是支持的！~

[[i] 本帖最后由 hnxmw 于 2008-7-20 09:19 编辑 [/i]]

fung1990 发表于 2008-7-20 11:37

發出來把
否則我不愛你了
哈愛護

sunnyv 发表于 2008-7-20 14:58

发布代码吧

455929861 发表于 2008-7-20 17:53

发代码吧!~!~:o

fzlgirls 发表于 2008-7-20 17:59

:cool:

逃避网络 发表于 2008-7-20 18:28

不错！

[[i] 本帖最后由 逃避网络 于 2008-7-20 18:29 编辑 [/i]]

y1688688 发表于 2008-7-20 19:58

支持共享。。。。

zbsxcc 发表于 2008-7-20 20:14

好奇怪的统计数据啊,大伙的cnzz有没有?

当天PV 652  
当天独立访客 22  
当天IP数 117
[attach]27635[/attach]

HCECHO 发表于 2008-7-20 23:18

放代码&数据库

wykslina 发表于 2008-7-21 09:21

[quote]原帖由 [i]455929861[/i] 于 2008-7-20 17:53 发表 [url=http://www.im286.com/redirect.php?goto=findpost&pid=27886533&ptid=2748309][img]http://www.im286.com/images/common/back.gif[/img][/url]
发代码吧!~!~:o [/quote]

janny82 发表于 2008-7-21 14:13

期待..MJJ

森林王子 发表于 2008-7-21 14:27

昨天的数据就是有问题

bbaatt 发表于 2008-7-21 14:33

看看

cosmo 发表于 2008-7-21 15:53

放代码&数据库

我行我速 发表于 2008-7-21 16:25

支持楼主发布代码！

查看完整版本: 根据查询生成html,用于本人新制作一姓名测试网站