db.asp

1、采用4.5修改而成。 2、添加了求片区

<!--#include file="config.asp"-->
<!--#include file="sub.asp"--><%
dim search_hot,index_pics,index_links,v_server,classname,zt_namet,zt_type,zt_movietype,zt_typename,zt_pic,zt_content,zt_date,zt_hits,url,zt_zy,zt_dy,zt_dq,v_name,v_url_1,v_url_2,v_play,v_url,v_dq,v_typename,z_view_path
response.buffer=true'打开缓冲
Set conn = Server.CreateObject("ADODB.Connection")
If maxz_5=1 Then 
connstr="provider=sqloledb;uid="&maxz_8&";pwd="&maxz_9&";initial catalog="&maxz_7&";data source="&maxz_6&";"
Else 
connstr="provider=microsoft.jet.oledb.4.0;data source=" &server.mappath(maxz_10)
End If 
conn.open connstr
if err then
err.clear
set conn = nothing
response.write "数据库连接错误！"
response.end
end If%>