'以下代码请勿改动
Dim Conn
Dim PE_True, PE_False, PE_Now, PE_OrderType, PE_DatePart_D, PE_DatePart_Y, PE_DatePart_M, PE_DatePart_W, PE_DatePart_H
Sub OpenConn()
'On Error Resume Next
Dim ConnStr
If SystemDatabaseType = "SQL" Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFileName)
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
If SystemDatabaseType = "SQL" Then
PE_True = "1"
PE_False = "0"
PE_Now = "GetDate()"
PE_OrderType = " desc"
PE_DatePart_D = "d"
PE_DatePart_Y = "yyyy"
PE_DatePart_M = "m"
PE_DatePart_W = "ww"
PE_DatePart_H = "hh"
Else
PE_True = "True"
PE_False = "False"
PE_Now = "Now()"
PE_OrderType = " asc"
PE_DatePart_D = "'d'"
PE_DatePart_Y = "'yyyy'"
PE_DatePart_M = "'m'"
PE_DatePart_W = "'ww'"
PE_DatePart_H = "'h'"
End If
End Sub
Sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
Set regEx = Nothing
Set PE_Cache = Nothing
End Sub
%>
崇左农业信息网--首 页
|
|
|
|
农业快讯 |
|
 |
|
崇左市农业局梁慧副局长到江州区调研农产品销售工作 |
|
4月28日,崇左市农业局梁慧副局长在市农业局信息科科长黄景东等领导同志的陪同下,深入到江州区调研当前农产品生产与销售工作。江州区农业局副局长方英慧全程陪同检查。
梁慧副局长一行首先到农业局听取江州区农业局党组书记黄忠超关于江州区开展当前农产品生产与销售工作的情况汇报,接… |
|
|
|
|
|
|
|
|
Copyright© 2008-2009 czcyl.Com All rights reserved
邮编:532200 电子邮箱:hjd415@163.com
地址:
中国广西壮族自治区崇左市德天路 电话:0771-7965693 7965696 崇左农业信息网
|