conn.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 18 行

<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("admin\data\youthfly.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
%>
<% function resstr(str)
	
	str=replace(str,">","&gt;")
	str=replace(str,"<","&lt;")
	k=replace (str,chr(39),"&#39;")
	k=replace (str,chr(34),"&#34;")
	str=replace(str,chr(13)+chr(10),"<br>")
	resstr=str
	end function
perpage=25
%>