给你们看看火星人写的程序

作者:一想千开日期:2009-07-18

字体大小: 小中大

一个很简单的企业站，嗯，做这个站的时候高兴，所以就给写成这样了。完全非常规的写法和逻辑，全站所有功能（包括首页、公司简介、新闻、搜索查询及搜索查询结果页……）呈现为一个文件，只是Get参数不同……下载下来自己看吧，需要IIS下运行。

下载地址：

引用内容

点击下载此文件

首页源码预览：

<!--#include file='inc/conn.asp'-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/db_function.asp"-->
<%
Dim qStr, Qid
qStr = request.Form("q")
Qid = request.Form("Qid")
If qStr = "Yes" Then
    response.Redirect  "./?query_" & Qid
End If

Dim TopFile, BottomFile, MetaFile
TopFile = "Body/Body_public_top.asp"
BottomFile = "Body/Body_public_bottom.asp"
MetaFile = "Body/Body_public_meta.asp"

Dim PathKey, PathKayList, PageTags, PageTitle, PageFile
PathKey = chkcode(Trim(request.QueryString))
'response.write (PathKey)
If InStr(PathKey,"_")<>0 Then
    PathKayList = Split(PathKey,"_")
    PageTags = PathKayList(0)
Else
    PageTags = PathKey
End If
Dim ClssInfo
If PageTags<>"" Then
    Set ClssInfo = server.CreateObject("ADODB.recordset")
    ClssInfo.open "select top 1 * from Bjkd_class where class_path='" & PageTags & "'",conn,1,1
    If Not (ClssInfo.bof And ClssInfo.eof) Then

        PageTitle = ClssInfo("class_title") & " - " & SiteTitle

        If CStr(ClssInfo("class_type")) = "0" Then
            PageFile = "body/body_about.asp"
        ElseIf CStr(ClssInfo("class_type")) = "1" Then
            PageFile = "body/body_list.asp"
        ElseIf CStr(ClssInfo("class_type")) = "2" Then
            PageFile = "body/body_" & PageTags & ".asp"
        End If

        If InStr(PathKey,"_")<>0 Then
            If UBound(PathKayList)>0 Then
                If PathKayList(0)="notice" Then
                    If PathKayList(1)="" or Not IsNumeric(PathKayList(1)) Then
                        response.write ("<script>alert(""非法操作"");location.href=""javascript:history.back()"";</script>")
                        response.End
                    End If
                    Dim NewsInfo
                    Set NewsInfo = server.CreateObject("ADODB.recordset")
                    NewsInfo.open "select top 1 * from Bjkd_news where news_id=" & PathKayList(1),conn,1,1
                    If Not (NewsInfo.bof And NewsInfo.eof) Then
                        PageTitle = NewsInfo("news_title") & " - " & ClssInfo("class_title") & " - " & SiteTitle
                        PageFile = "body/body_news.asp"
                    Else
                        response.write ("<script>alert(""试图访问不存在的数据"");location.href=""javascript:history.back()"";</script>")
                        response.End                    
                    End If
                End If 
            End If
        End If

    End If
End If

If PageTitle = "" Then
    PageTitle = SiteTitle
End If
If PageFile = "" Then
    PageFile = "body/body_index.asp"
End If

WriteLn "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"""
WriteLn """http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
WriteLn "<html xmlns='http://www.w3.org/1999/xhtml'>"
WriteLn "<head>"
WriteLn "<title>" & PageTitle & "</title>"
server.execute(MetaFile)
WriteLn "</head>"
WriteLn "<body bgcolor='#ffffff' >"
WriteLn "<div style='height:auto; width:1003px; overflow:hidden'>"
server.execute(TopFile)
server.execute(PageFile)
server.execute(BottomFile)
WriteLn "</div>"
WriteLn "</body>"
WriteLn "</html>"
%>

友情提示：此种火星写法除了好玩外好处甚少，没事请勿模仿，模仿者后果自负。

本作品采用知识共享署名-非商业性使用-禁止演绎 2.5 中国大陆许可协议进行许可。

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: 火星程序

评论: 1 | 引用: 0 | 查看次数: -

双木杉子[2009-12-16 10:29 PM |

]

知道你为什么叫异想天开了
哈哈

发表评论

昵　称:
密　码:	游客发言不需要密码.
内　容:	正在加载编辑器...
验证码:
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号.

给你们看看火星人写的程序

作者:一想千开 日期:2009-07-18

作者:一想千开日期:2009-07-18