求基于三层的ASP源代码

[zykj_2000]

不管是什么系统，只要是基于多层的系统0
要求asp+vb+sqlserver(access也可)
最主要是有中间层部分vb的代码
主要目地是用于学习，还请各位大虾多多帮忙，要是有类似的代码发我几个
定高分奉上

[fang525]

我有
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

借花献佛,测试通过

[Reker熊]

太多了把,搜索一下啊

懶

[zykj_2000]

我要的是一些完整一点的代码啊 ，

[kunyi]

什么是基于三层？

[zykj_2000]

可以分到我的Email
[e-mail]
or
[e-mail]

[pwq]

我有

[zykj_2000]

还是没有人吗

[old_horse]

我也要，谢谢！

[luok]

不可能没有的，我当年学ASP时就有了。

[seelyer]

我在学用ASP.NET做一个B/S的小东东/
只要能有登陆验证及两个的表的数据删除和添加
就可以了哪位大哥能为小弟做个例子呀？

[seelyer]

急用谢谢！

[zykj_2000]

同志们，就当是帮忙吧 ，谁有啊

[逍遥小贼]

还是自己动手丰衣足食啊，网上有一大堆呢，为什么不自己去搜索一下？？

[zykj_2000]

你以为我没有搜过啊 ，可是没有代码下载啊,要不您老帮我搜一下

[smuzy]

我有代码，已经给你们发过去了，请查收

其他的谁要可以留Email

[zykj_2000]

你的这个代码我也有，我要的是asp+vb
asp来做用户层，vb来做中间层的代码,

[手艺人杨柳]

我有，qq15661310，呼我

[eppen]

在微软刚推出asp的时候，就发表了几个源代码是关于三层的，
例如：stocks和nile

[jiejifeng]

偶也有，不过MTS里的　事务回滚　让我有点头痛

[zykj_2000]

楼上的，哪我的帖子作嫁衣裳啊，我874你