|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。查询剖析sqlultimate.asp--PartB
++++++++++++++FKSub+++++++++++++++++
SUBFK(xdbname,xuserid,xpassword)
DimstrConn,conntemp,rsSchema,PKT,PKC,FKT,FKC
ConstadSchemaForeignKeys=27
strConn="Provider=SQLOLEDB.1;DataSource="&strServer&";"&_
"InitialCatalog="&xdbname&_
";UID="&xuserid&";PWD="&xpassword&";"
setconntemp=server.createobject("adodb.connection")
response.write("<palign=center><tablewidth=""75%"">"&vbCrLf)
response.write("<trbgcolor=blackalign=center><tdcolspan=2><fontcolor=white><b>PrimaryKey</b></font></td><tdcolspan=2><fontcolor=white><b>ForeignKey</b></font></td></tr>"&vbCrLf)
response.write("<trbgcolor=whitealign=center><td><b>PKTable</b></td><td><b>PKField</b></td><td><b>FKTable</b></td><td><b>FKField</b></td></tr>"&vbCrLf)
conntemp.openstrConn
setrsSchema=conntemp.OpenSchema(adSchemaForeignKeys)
DOUNTILrsSchema.eof
PKT=rsSchema.fields("PK_TABLE_NAME")
PKC=rsSchema.fields("PK_COLUMN_NAME")
FKT=rsSchema.fields("FK_TABLE_NAME")
FKC=rsSchema.fields("FK_COLUMN_NAME")
IfPKT""Then
response.write("<tralign=right><tdbgcolor=#c6e9f4>"&PKT&"</td><td>"&PKC&"</td><tdbgcolor=#c6e9f4>"&FKT&"</td><td>"&FKC&"</td></tr>"&vbCrLf)
EndIf
rsSchema.MoveNext
LOOP
response.write("</table></p>"&vbCrLf)
rsSchema.Close
setrsSchema=nothing
conntemp.close
setconntemp=nothing
ENDSUB
++++++++++++++tableDropDownSub+++++++++++++++++
SubtableDropDown(xdbname,xuserid,xpassword)
dimcnn,cat,tbl
dimconnectstring
OnErrorResumeNext
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")
cnn.Openconnectstring
Iferr.description""then
Response.write("<b>LoginPlease</b>"&vbCrLf)
EndIf
cat.ActiveConnection=cnn
Response.Write("<selectname=""strTableName"">"&vbCrLf)
ForEachtblIncat.Tables
Iftbl.Typ</p>在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。 |
|