Response.End
End If
End Sub
End Class
'----********************* TDBOperate *****************************----
稍提一个编码风格
个人觉得代码混排是个鸡肋，混排的可读性差，所以我一般都只是少量混排，尽量将代码和HTML分离。
<!--#include file="pubdb.asp"-->
<%
'*****************************************
'类型：函数
'目的：报错
'参数：
'a_num:报错信息参数
'*****************************************
Private Function ShowError(a_Num)
Dim sErrInfo
sErrInfo = ""
Response.Write("<p>Error Number:era_" & a_Num & "</p>")
Select Case a_Num
Case "1000"
sErrInfo = "参数类型不正确，请检查"
Case "1100"
sErrInfo = "无法打开数据库连接"
Case Else
sErrInfo = "发现未知错误，请与管理员联系"
End Select
sErrInfo = "<p>Error Description:" & sErrInfo & "</p>"
Response.Write(sErrInfo)
Response.End
End Function
Dim oRS,sHtml
Call OpenDB()
Set oRS = oConn.OpenSchema(20)
sHtml=""
oRS.MoveFirst
'循环读取数据库中的表名
Do While Not oRS.EOF
If UCase(oRS(3))="TABLE" Then
sTemp = Trim(oRS(2))
If sTBName = sTemp Then
sHtml= sHtml & Space(2) & "<option value=""" & sTemp & """ selected=""selected"">" & sTemp & "</option>" & Chr(10)
Else
sHtml= sHtml & Space(2) & "<option value=""" & sTemp & """>" & sTemp & "</option>" & Chr(10)
End If
End If
oRS.MoveNext
Loop
Call CloseDB()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
