hx_conndatabase.asp

精美OA网络办公系统,带PSD文件.可任意修改.

<!--#INCLUDE FILE="HX_CONSTSTR.ASP"--><!--#include file="HX_SYSTEM.ASP"--><!--#INCLUDE FILE="HX_CHECKEMAIL.ASP"--><!--#INCLUDE FILE="HX_FUNCTION.ASP"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
'程序编写及设计:徐勇
'QQ号码: 329816886(万辰)  563097256(网络侠客) 
'因前一个QQ已满
'电话:[phone]   0551-5168961
'以上信息不影响程序运行!
'在使用过程中请保留以上信息
'以便出现问题时及时与我取得联系
'谢谢!
Function HX_Checknum(Numstr)
if isnull(Numstr) or Numstr=""  then
exit Function
else
if not isnumeric(Numstr) then
response.write"<center>非法操作导致程序中止!</center>"
response.end
else
HX_Checknum=int(Numstr)
end if
end if
End Function
Function HX_GoBack(Msgstr,url)
 If url<>"" and Msgstr<>"" Then
   response.Write("<script language=javascript>alert('"&Msgstr&"');location.href='"&url&"';</script>")
   response.end
 elseIf url="" and Msgstr<>"" Then
   response.Write("<script language=javascript>alert('"&Msgstr&"');history.go(-1);</script>")
   response.end
 else
   response.Write("<script language=javascript>window.close();</script>")
   response.end
 end if  
End Function

Function HX_Conn(Directory)'取得数据库对象
  on error resume next
  SET CONN=Server.CreateObject("ADODB.Connection")
  CONNSTR="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&WS_S.DBPathAddress(Directory)
  CONN.open CONNSTR
  If Err Then
			Err.Clear
			Response.Write "连接出错，请检查数据库连接字符串！"
			Response.End
  End If
End Function 
 
Sub HX_ClosDB()'取得关闭数据库对象
  if isobject(conn) then
    CONN.close:Set CONN = Nothing
  end if
End Sub
%>