马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;查询剖析DataTypeLib.asp
<%
FunctionselectIdentity(strConnect,strTable,strColumn)
DimobjConn,objRS,strFieldName,strFieldType,arrData,intRowCounter,intColCounter,strFieldValue
DimintUBoundRow,intUBoundCol,strSQLID
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString=strConnect
objConn.Open
strSQLID="SELECTCOLUMNPROPERTY(OBJECT_ID("&strTable&"),"&strColumn&",IsIdentity)"
SetobjRS=objConn.Execute(strSQLID)
IfobjRS.EOFandobjRS.BOFthen
Response.Write("Norecordsmatchedortableisempty")
objRS.Close
SetobjRS=Nothing
objconn.Close
Setobjconn=Nothing
Else
Nowletsgraballtherecordsandcloseobjects
arrData=objRS.Getrows
objRS.Close
SetobjRS=Nothing
objConn.Close
SetobjConn=Nothing
intUBoundRow=UBound(arrData,2)
intUBoundCol=UBound(arrData,1)
ForintRowCounter=0tointUBoundRow
ForintColCounter=0tointUBoundCol
strFieldValue=arrdata(intcolcounter,introwcounter)
IfisNull(strFieldValue)then
strFieldValue="<NULL>"
Elseiftrim(strFieldValue)=""then
strFieldValue="<BLANK>"
Endif
Next
Next
Endif
selectIdentity=strFieldValue
EndFunction
SubgetIdentity(strServer,xdbname,xuserid,xpassword)
dimcnn,cat,tbl,fld,strCookieIdentity
dimconnectstring
connectstring=_
"Provider=SQLOLEDB.1;DataSource="&strServer&";"&_
"InitialCatalog="&xdbname&_
";UID="&xuserid&";PWD="&xpassword&";"
setcnn=server.createobject("adodb.connection")
setcat=server.createobject("adox.catalog")
settbl=server.createobject("adox.table")
setfld=server.createobject("adox.column")
cnn.Openconnectstring
cat.ActiveConnection=cnn
</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 |