admin_conn.asp

强大的后台文章编辑器的功能

<%
sss=LCase(request.servervariables("QUERY_STRING"))
   if instr(sss,"select")<>0 or instr(sss,"%")<>0 then
     response.write "<BR><BR><center>你的网址不合法"
     response.end
   end if

set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("data/#db1.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath


'ON ERROR RESUME NEXT

%>