ASP做查詢分析器(Query Analyzer)(IV)

createTable.asp
<%@ LANGUAGE = VBScript %>
<%
Option Explicit
Response.Buffer = True
Response.ContentType = "text/html; charset=iso-8859-1"
'--------------------------------------------------------------
'--- Declarations
'--------------------------------------------------------------
Dim intNumColumns, strTableName, intCurrentColumn, intTableNum
Dim strTable, booltableinfo,strsqlserver,strLog_in,strUser_password
'--------------------------------------------------------------
'--- Initialization
'--------------------------------------------------------------
strTable = request("choosetable")
booltableinfo = request("booltableinfo")
strsqlserver = request("sqlserver")
strLog_in = request("log_in")
strUser_password = request("user_password")
intNumColumns = request("howMany")
strTableName = request("tableName")
intTableNum = 1
'--------------------------------------------------------------
'--- Functions
'--------------------------------------------------------------
'--------------------------------------------------------------
Sub OutputTableHeader()
response.write("<tr bgcolor=""#ebf498"">" & vbCrLf)
response.write("<td><b>Column Name</b></td>" & vbCrLf)
response.write("<td><b>Data Type</b></td>" & vbCrLf)
response.write("<td><b>Size</b></td>" & vbCrLf)    
response.write("<td><b>Null?</b></td>" & vbCrLf)
response.write("<td><b>Unique?</b></td>" & vbCrLf)
response.write("<td><b>Primary Key</b></td>" & vbCrLf)    
response.write("</tr>" & vbCrLf & vbCrLf)