觉的这站不错 呵呵
原帖地址
http://bbs.zzchn.com/thread-43122-1-1.html
[2007-11-28] 大农网农民信息网 打包下载
所有打包下载地址均来源于网络,仅供学习使用,请勿用于商业用途，请自行杀马。 演示地址:
http://www.dnong.com/ 打包大小:358M
好象没数据库 找来找去找不到 打开coon.asp里发现应该是写进组建的 请问有办法把数据库一起搞下来吗
Server.CreateObject("WspBiz.AspCommon") 应该写到这个组件的吧 呵呵 本人是菜鸟
coon.asp全部代码：
<%
Dim GBL_CheckPassDoneFlag '是否登录的标志
Dim startime
startime=timer()
'数据库连接
Dim adoCon
Set adoCon = GetMsSQLConn(DEF_SQLSVR_WWW)
'全局通用组件声明
Dim CM
Set CM = Server.CreateObject("WspBiz.AspCommon")
CM.GetConn=adoCon
Dim Sys
Set Sys = New CSys
'Sys.DisableCache
'===================================函数声明===============================================
'******************************************************************
' Coder: Snowalk 2005.1.11
' Purpose: 主要是加入了错误处理，防止数据库连接出错时暴库
' Inputs: sSQLServerName 数据库服务器名称
' sSQLDBUserName 用户名
' sSQLDBPassword 密码
' sSQLDBName 数据库名
' Returns: 返回一个Connection对象
' 错误的情况下会输出出错信息并中断
'*******************************************************************
Function GetMsSqlConn(sConn)
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
'On Error Resume Next
oConn.Open sConn
'If oConn.state <> 1 Then Response.Write("<font color=""red""><b>数据库连接出错</b></font><br>")
If Err.Number <> 0 Then
Response.Write("<font color=""red""><b>数据库连接出错</b></font><br>")
Response.Write("<font color=""red""><b>网站正在维护中，请稍后访问！</b></font>")
'Response.write(sConn)
Response.End
Exit Function
Else
Set GetMsSqlConn = oConn
End If
End Function
Sub CloseDatabase
If IsObject(adoCon) Then
adoCon.close
Set adoCon = Nothing
Else
Exit Sub
End If
End Sub
%>
