<%
Function selectIdentity(strConnect,strTable,strColumn)
Dim objConn, objRS, strFieldName, strFieldType, arrData, intRowCounter, intColCounter, strFieldValue
Dim intUBoundRow, intUBoundCol, strSQLID
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = strConnect
objConn.Open
strSQLID = "SELECT COLUMNPROPERTY( OBJECT_ID(‘’"&strTable&"‘’),‘’"&strColumn&"‘’,‘’IsIdentity‘’)"
Set objRS = objConn.Execute(strSQLID)
If objRS.EOF and objRS.BOF then
Response.Write("No records matched or table is empty")
objRS.Close
Set objRS = Nothing
objconn.Close
Set objconn=Nothing
Else
‘’ Now lets grab all the records and close objects
arrData=objRS.Getrows
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
intUBoundRow = UBound(arrData,2)
intUBoundCol = UBound(arrData,1)
For intRowCounter = 0 to intUBoundRow
For intColCounter = 0 to intUBoundCol
strFieldValue = arrdata(intcolcounter,introwcounter)
If isNull(strFieldValue) then
strFieldValue ="<NULL>"
Elseif trim(strFieldValue)="" then
strFieldValue="<BLANK>"
End if
Next
Next
End if
selectIdentity = strFieldValue
End Function
Sub getIdentity(strServer, xdbname, xuserid, xpassword)
dim cnn, cat, tbl, fld, strCookieIdentity
dim connectstring
connectstring = _
"Provider=SQLOLEDB.1;Data Source="&strServer&";" & _
"Initial Catalog=" & xdbname & _
";UID=" & xuserid & ";PWD=" & xpassword & ";"
set cnn = server.createobject("adodb.connection")
set cat = server.createobject("adox.catalog")
set tbl = server.createobject("adox.table")
set fld = server.createobject("adox.column")
cnn.Open connectstring
cat.ActiveConnection = cnn
For Each tbl In cat.Tables
If tbl.Type = "TABLE" Then
For Each fld In tbl.columns
If selectIdentity(connectstring,tbl.name,fld.name) = 1 Then
strCookieIdentity = strCookieIdentity & tbl.name & fld.name
End If
Next
End If
Next
set cat = nothing
set tbl = nothing
cnn.Close
set cnn = nothing
response.cookies(xdbname & "strCookieIdentity") = strCookieIdentity & xdbname
end sub
Function getType(strFieldTypeNumber)
Dim strFieldType
Select Case strFieldTypeNumber
Case 0x2000
strFieldType = "adArray"
Case 20
strFieldType = "adBigInt"
Case 128
strFieldType = "adBinary"
Case 11
strFieldType = "adBoolean"
Case 8
strFieldType = "adBSTR"
Case 136
strFieldType = "adChapter"
Case 129
strFieldType = "adChar"
Case 6
strFieldType = "adCurrency"
Case 7
strFieldType = "adDate"
Case 133
strFieldType = "adDBDate"
Case 137
strFieldType = "adDBFileTime"
Case 134
strFieldType = "adDBTime"
Case 135
strFieldType = "adDBTimeStamp"
Case 14
strFieldType = "adDecimal"
Case 5
strFieldType = "adDouble"
Case 0
strFieldType = "adEmpty"
Case 10
strFieldType = "adError"
Case 64
strFieldType = "adFileTime"
Case 72
strFieldType = "adGUID"
Case 9
strFieldType = "adIDispatch"
Case 3
strFieldType = "adInteger"
Case 13
strFieldType = "adIUnknown"
Case 205
strFieldType = "adLongVarBinary"
Case 201
strFieldType = "adLongVarChar"
Case 203
strFieldType = "adLongVarWChar"
Case 131
strFieldType = "adNumeric"
Case 138
strFieldType = "adPropVariant"
Case 4
strFieldType = "adSingle"
Case 2
strFieldType = "adSmallInt"
Case 16
strFieldType = "adTinyInt"
Case 21
strFieldType = "adUnsignedBigInt"
Case 19
strFieldType = "adUnsignedInt"
Case 18
strFieldType = "adUnsignedSmallInt"
Case 17
strFieldType = "adUnsignedTinyInt"
Case 132
strFieldType = "adUserDefined"
Case 204
strFieldType = "adVarBinary"
Case 200
strFieldType = "adVarChar"
Case 12
strFieldType = "adVariant"
Case 139
strFieldType = "adVarNumeric"
Case 202
strFieldType = "adVarWChar"
Case 130
strFieldType = "adWChar"
Case Else
strFieldType = "Unknown Data Type"
End Select
getType = strFieldType
End Function
%>
文章来源于领测软件测试网 https://www.ltesting.net/
