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)

End Sub

'--------------------------------------------------------------

Sub OutputFieldRow(strTableName,intFieldNum)

    response.write("<tr>" & vbCrLf)    
    response.write("<td><input type=text name=colum" & intFieldNum & "></td>" & vbCrLf)
    response.write("<td><select size=1 name=dtype" & intFieldNum & ">" & vbCrLf)    
    If intFieldNum = 1 Then      
      response.write("<option value=""int IDENTITY(1,1)"">Identity</option>" & vbCrLf)    
    End If
    response.write("<option value=varchar>varchar</option>" & vbCrLf)
    response.write("<option value=text>text</option>" & vbCrLf)
    response.write("<option value=datetime>datetime</option>" & vbCrLf)
    response.write("<option value=money>money</option>" & vbCrLf)
    response.write("<option value=smallint>smallint</option>" & vbCrLf)
    response.write("<option value=int>int</option>" & vbCrLf)
    response.write("<option value=real>real</option>" & vbCrLf)
    response.write("<option value=float>float</option>" & vbCrLf)
    response.write("<option value=bit>bit</option>" & vbCrLf)
    response.write("<option value=varbinary>varbinary</option>" & vbCrLf)
    response.write("<option value=image>image</option>" & vbCrLf)
    response.write("</select></td>" & vbCrLf)
    response.write("<td><input type=text size=3 name=size" & intFieldNum & "></td>" & vbCrLf)
    response.write("<td><select name=nullbox" & intFieldNum & ">" & vbCrLf)     
    response.write(" <option value=""DISALLOW NULL"">Not Null</option>" & vbCrLf)