admin_conn.asp

来自「强大的后台文章编辑器的功能」· ASP 代码 · 共 18 行

<%
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

%>