ASP做查询分析器(Query Analyzer)(IV)_自动测试脚本语言

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

发表于：2007-06-30来源：作者：点击数：标签：

createTable.asp %@ LANGUAGE = VB Script % % Option Explicit Response.Buffer = True Response.ContentType = text/html; charset=iso-8859-1 ‘’-------------------------------------------------------------- ‘’--- Declarations ‘’------------

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)
    response.write(" <option value=""NULL"">Null</option>" & vbCrLf)
    response.write("</select></td>" & vbCrLf)

‘’    response.write "Unique" & intFieldNum

    response.write("<td><input type=checkbox name=Unique" & intFieldNum & "><b> Yes</b></td>" & vbCrLf)

    response.write("<td align=center><input type=radio name=PK " & _
    "value=" & intTableNum & "PK" & intFieldNum & "></td>" & vbCrLf)
    response.write("</tr>" & vbCrLf & vbCrLf)
End Sub

‘’--------------------------------------------------------------

‘’--------------------------------------------------------------
‘’--- Body
‘’--------------------------------------------------------------

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><head><title>BuildDB</title></head>
<body bgcolor="#f4e1d2">

<p align=center>
<form method="post" action="sqlultimate.asp">

<%
Response.Write("<table cellpadding=""6"" bgcolor=""#edc6f4"" border=1>" & vbCrLf & vbCrLf)

    response.write("<input name=choosetable type=hidden value="""& strTable &"""> "& vbCrLf)
    response.write("<input name=booltableinfo type=hidden value="& booltableinfo &">" & vbCrLf)
    response.write("<input name=sqlserver type=hidden value="""& strsqlserver &""">" & vbCrLf)
    response.write("<input name=log_in type=hidden value="""& strLog_in &""">" & vbCrLf)
    response.write("<input name=user_password type=hidden value="""& strUser_password &""">" & vbCrLf)
‘’    response.write("<input type=hidden name=strSQL

    response.write("<tr><td colspan=6 bgcolor=black align=center><font size=5 color=white><b>Table is: " & strTableName & "</b></font>")
    response.write("<input type=hidden name=tablename value=""" & strTableName & """>" & vbCrLf)
    response.write("<input type=hidden name=""columnnumber"" value=" & intNumColumns & ">")
    response.write("</td></tr>" & vbCrLf & vbCrLf)

    OutputTableHeader

    For intCurrentColumn = 1 To intNumColumns
        OutputFieldRow strTableName, intCurrentColumn
    Next ‘’intCurrentColumn

%>

<tr>
    <td colspan=6 align=center>
    <input name=createTable type="submit" value="Make Create Table Statement"></td>
</tr>
</table>

</form>

<p>

</body>
</html>

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >