odbc.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<%
	dim db,dbpath
	dbpath="db/gb.mdb"
	set db = server.createobject("adodb.connection")
	db.open "provider=microsoft.jet.oledb.4.0; data source= " & server.mappath(dbpath)
	
	function closedate
	db.close
	set db = nothing
	end function
	
	function error(errinfo)
%>
<table width="500" height="70" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
          <td width="100%" height="26"> 
            <p align="center"><img src="file:///F|/EO/gb2/downcode.com/wxdesign_book/img/error.gif" width="17" height="17" align="absmiddle"><b> 
              出错了！！</b></td>
</tr>
<tr>
<td width="100%" height="170">
<p align="center"><%=errinfo%><br>
<br>
<a href="javascript:history.back(1)">&lt;- 返回</a></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end function

	sql="Select * from admin where id=1"
	set rs = server.createobject("adodb.recordset")
	rs.open sql,db,1,1
	adminmail=rs("adminmail")
	site=rs("site")
	url=rs("url")
	perpage=rs("perpage")
	stat=rs("stat")
	maxnum=rs("maxnum")
	notice=rs("notice")
	lock = rs("lock")
	user=rs("user")
	passed=rs("passed")
	rs.close
	set rs = nothing
%>