www.gusucode.com > 山寨版广告信息招贴网源码程序 > 山寨版广告信息招贴网源码程序/ewuyi/dir_发布/info/conn.asp

    <!-- #include file="../config.asp"-->
<!-- #include file="../Inc/CheckSql.asp"-->
<%
on error resume next
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("../"&mdbpath&"")
Function AlertUrl(AlertStr,Url) 
 Response.Write "<script>" 
 Response.Write "alert('"&AlertStr&"');" 
 Response.Write "location.href='"&Url&"';" 
 Response.Write "</script>" 
End Function
Function AlertBack(AlertStr) 
 Response.Write "<script>" 
 Response.Write "alert('"&AlertStr&"');" 
 Response.Write "history.go(-1)" 
 Response.Write "</script>" 
End Function
%>