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("" & vbCrLf)
response.write("Column Name" & vbCrLf)
response.write("Data Type" & vbCrLf)
response.write("Size" & vbCrLf)    
response.write("Null?" & vbCrLf)
response.write("Unique?" & vbCrLf)
response.write("Primary Key" & vbCrLf)    
response.write("" & vbCrLf & vbCrLf)