2.8w+
社区成员
- 主页
求基于三层的ASP源代码
不管是什么系统，只要是基于多层的系统0
要求asp+vb+sqlserver(access也可)
最主要是有中间层部分vb的代码
主要目地是用于学习，还请各位大虾多多帮忙，要是有类似的代码发我几个
定高分奉上
要求asp+vb+sqlserver(access也可)
最主要是有中间层部分vb的代码
主要目地是用于学习，还请各位大虾多多帮忙，要是有类似的代码发我几个
定高分奉上
...全文
请发表友善的回复…
发表回复
zykj_2000 2003-05-14
楼上的，哪我的帖子作嫁衣裳啊，我874你
jiejifeng 2003-05-14
偶也有，不过MTS里的 事务回滚 让我有点头痛
eppen 2003-05-14
在微软刚推出asp的时候，就发表了几个源代码是关于三层的，
例如：stocks和nile
例如：stocks和nile
手艺人杨柳 2003-05-14
我有，qq15661310，呼我
zykj_2000 2003-05-14
你的这个代码我也有，我要的是asp+vb
asp来做用户层，vb来做中间层的代码,
asp来做用户层，vb来做中间层的代码,
smuzy 2003-05-14
我有代码，已经给你们发过去了，请查收
其他的谁要可以留Email
其他的谁要可以留Email
zykj_2000 2003-05-13
你以为我没有搜过啊 ，可是没有代码下载啊,要不您老帮我搜一下
逍遥小贼 2003-05-13
还是自己动手丰衣足食啊，网上有一大堆呢，为什么不自己去搜索一下？？
zykj_2000 2003-05-13
同志们，就当是帮忙吧 ，谁有啊
seelyer 2003-05-13
急用谢谢！
seelyer 2003-05-13
我在学用ASP.NET做一个B/S的小东东/
只要能有登陆验证及两个的表的数据删除和添加
就可以了哪位大哥能为小弟做个例子呀？
只要能有登陆验证及两个的表的数据删除和添加
就可以了哪位大哥能为小弟做个例子呀？
luok 2003-05-13
不可能没有的，我当年学ASP时就有了。
old_horse 2003-05-13
我也要，谢谢！
zykj_2000 2003-05-13
还是没有人吗
pwq 2003-05-09
我有
zykj_2000 2003-05-09
可以分到我的Email
zykj_2000@163.com
or
zykj_2000@163.net
zykj_2000@163.com
or
zykj_2000@163.net
kunyi 2003-05-09
什么是基于三层？
zykj_2000 2003-05-09
我要的是一些完整一点的代码啊 ，
Reker熊 2003-05-09
太多了把,搜索一下啊
懶
懶
fang525 2003-05-09
我有
file.asp:
...
Set conn=Server.CreateObject("connection.open")
set MyRec=Server.CreateObject("ADODB.Recordset")
sql= "select * from clients"
rs=conn.RecSql(sql)
Response.Write rs.fields(2)
...
connection.vbp:
...
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub
Public Function RecSql(strSql) As Recordset
Dim myCnn As Connection
Dim mySet As Recordset
Dim strConnstring As String
Set myCnn = New ADODB.Connection
Set mySet = New ADODB.Recordset
strConnstring = "Provider=SQLOLEDB.1;Password=; Persist Security Info=True;User ID=sa;Initial Catalog=fu;Data Source=(local);Connect Timeout=15"
myCnn.ConnectionString = strConnstring
myCnn.Open
mySet.ActiveConnection = myCnn
mySet.Open strSql
Set GetRecSqlOleDb = mySet
End Function
借花献佛,测试通过
file.asp:
...
Set conn=Server.CreateObject("connection.open")
set MyRec=Server.CreateObject("ADODB.Recordset")
sql= "select * from clients"
rs=conn.RecSql(sql)
Response.Write rs.fields(2)
...
connection.vbp:
...
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As Request
Private MyResponse As Response
Private MyServer As Server
Private MySession As Session
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set MyScriptingContext = PassedScriptingContext
Set MyApplication = MyScriptingContext.Application
Set MyRequest = MyScriptingContext.Request
Set MyResponse = MyScriptingContext.Response
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = Nothing
Set MySession = Nothing
End Sub
Public Function RecSql(strSql) As Recordset
Dim myCnn As Connection
Dim mySet As Recordset
Dim strConnstring As String
Set myCnn = New ADODB.Connection
Set mySet = New ADODB.Recordset
strConnstring = "Provider=SQLOLEDB.1;Password=; Persist Security Info=True;User ID=sa;Initial Catalog=fu;Data Source=(local);Connect Timeout=15"
myCnn.ConnectionString = strConnstring
myCnn.Open
mySet.ActiveConnection = myCnn
mySet.Open strSql
Set GetRecSqlOleDb = mySet
End Function
借花献佛,测试通过