hx_conndatabase.asp

一个比较完整的oa系统

<!--#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号码: 563097256(网络侠客)
'网址：http://www.wsoas.com
'E_mail(MSN):[e-mail] 
'电话:[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 Sub
%>