我的一个垃圾代码。。。

'************************************************************************
'** File Name: ythtasp.asp                                             **
'** Creator: Patrike Cui                                               **
'** Create date: 2006/03/15                                            **
'**                                                                    **
'** Description: 一塌糊涂之ASP应用                                      **
'** Version:2.0.0.000                                                  **
'************************************************************************
Option Explicit           '强制声明变量

Server.ScriptTimeout     = 50000
Response.Buffer          = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires         = 0
Response.CacheControl    = "No-Cache"

Dim strVersion
Dim strAction
Dim strTitle
Dim strPage
Dim strUserName
Dim strPassword
Dim strDBPath
Dim strBody

strVersion  = "2.0.0.000"
strAction   = Request.QueryString("PageAction")
strPage     = "http://" + Request.ServerVariables("HTTP_HOST") + Request.ServerVariables("SCRIPT_NAME")
strTitle    = "newSystem"
strUserName = "ythtasp"
strPassword = "ythtasp"

If Session("ytht") = false Then
 Login()
Else
 Display()
 Dim bb
 Set bb = New ythtClass
 bb.Showit()
End If

Function Login()
 If strAction = "LoginCheck" And Request.Form("username") = strUserName And Request.Form("password") = strPassword Then
  Session("ytht") = True
  Response.Redirect(strPage)
 End If
End Function

Function Display()
 Select Case Request.Querystring("PageAction")
 Case "" 
  response.write("<table border='1' cellpadding='0' cellspacing='0' width='600' bordercolor='#0099FF' bordercolordark='#FFFFFF'>" & chr(13))
  response.write("<tr>" & chr(13))
  response.write("<td colspan='2' bgcolor='#6EA1E3' height='25' align='center'><font size='3'><b>一塌糊涂之ASP全应用，选择应用</b></font></td>" & chr(13))
  response.write("</tr>" & chr(13))
  response.write("<tr bgcolor='#dda0dd'>" & chr(13))
  response.write("<td align='center' width='300'><b>数据库应用()</b></td>" & chr(13))
  response.write("<td align='center' width='300'><b>FSO技术应用</b></td>" & chr(13))
  response.write("</tr>" & chr(13))
  response.write("<tr>" & chr(13))
  response.write("<td align='center' width='300'>" & chr(13))
  response.write("<a href='" & strPage & "?PageAction=viewtable'>查看已建的表</a><br>" & chr(13))
  response.write("<a href='" & strPage & "?PageAction=createtable'>添加新表&nbsp;&nbsp;&nbsp;&nbsp;</a><br>" & chr(13))
  response.write("<a href='" & strPage & "?PageAction=droptable'>删除表&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</a><br>" & chr(13))
  response.write("<a href='" & strPage & "?PageAction=alerttable'>修改表&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</a><br>" & chr(13))
  response.write("<a href='" & strPage & "?PageAction=executesql'>执行SQL语句&nbsp;</a>" & chr(13))
  response.write("</td>" & chr(13))
  response.write("<td align='center' width='300'>bb</td>" & chr(13))
  response.write("</tr>" & chr(13))
  response.write("</table>" & chr(13))
  strBottom()
 Case "viewtable"
  Dim aa
  Set aa = New DataBase
  aa.ShowDataTable()
 End Select
End Function

Class DataBase    '定义一个数据库连接类
 Private DataBase
 Private Sub Class_Initialize
  If Request.QueryString("DBPath") = "" Then
   DataBase = "example.mdb"
  Else
   DataBase = Request.QueryString("DBPath")
  End If
 End Sub
 Public Function DBConn()
  Dim objConn
  Dim strConn
  Set objConn = Server.CreateObject("ADODB.CONNECTION")
  strConn     = "DBQ=" + Server.MapPath(DataBase) + ";Driver={Microsoft Access Driver (*.mdb)}"
  objConn.Open(strConn)
 End Function
 Public Function ShowDataTable()  '定义一个函数，返回数据表
  Dim objConn
  Dim strConn
  Dim objRsSchema
 
  Set objConn = Server.CreateObject("ADODB.CONNECTION")
  strConn     = "DBQ=" + Server.MapPath(DataBase) + ";Driver={Microsoft Access Driver (*.mdb)}"
  objConn.Open(strConn)
  Set objRsSchema = objConn.OpenSchema(20)
  objRsSchema.MoveFirst
  
  Do Until objRsSchema.Eof
   If objRsSchema("TABLE_TYPE") = "TABLE" Then
    Response.Write(objRsSchema("TABLE_NAME") & "<br>")
   End If
   objRsSchema.MoveNext
  Loop
 End Function
 Public Sub ExecuteSQL(strQuery) '定义一个方法，执行SQL语句
  Dim objConn
  Dim strConn
  Dim objRs
  Set objConn = Server.CreateObject("ADODB.CONNECTION")
  strConn     = "DBQ=" + Server.MapPath(DataBase) + ";Driver={Microsoft Access Driver (*.mdb)}"
  objConn.Open(strConn)
  Set objRs   = objConn.Execute(strQuery)
 End Sub
End Class

Class ythtClass
 Private ythtClass
 Private Sub Class_Initialize
  Dim strVersion
  Dim strAction
  Dim strTitle
  Dim strPage
  Dim strUserName
  Dim strPassword
  Dim strDBPath
  Dim strBody

  strVersion  = "2.0.0.000"
  strAction   = Request.QueryString("PageAction")
  strPage     = "http://" + Request.ServerVariables("HTTP_HOST") + Request.ServerVariables("SCRIPT_NAME")
  strTitle    = "newSystem"
  strUserName = "ythtasp"
  strPassword = "ythtasp"
  
  ythtClass=""
 End Sub
 
 Public Function Showit()
  Response.Write(strVersion)
 End Function
End Class