conn.asp

用asp做的咨询平台 比较简单 但是修改很方便 很实用

<%
dim conn,rs

	set conn=server.CreateObject("adodb.connection")
	DBPath = Server.MapPath("data/news.mdb")
	conn.open= "provider=microsoft.jet.oledb.4.0; data source="&DBpath
	 Set rs=Server.CreateObject("ADODB.RecordSet")
	
sub closeDB
	If IsObject(conn) Then
		if not(conn is nothing) then
			set rs=nothing
			conn.close
			set conn=nothing
		end if
	End If
end sub

REM 格式化
function encodehtml(str)
	str=replace(str,vbCrLf,"<br>")
	str=replace(str,chr(9),"&nbsp;")
	encodehtml=str
end function

REM 分页显示
function pagecute(allpages,viewpage,pageurl,pp)
  if int(allpages)=0 then
 pagecute="<font color=red >[1]</font>"
   exit function
 end if
  dim pn,pi,page_num,ppp,pl,pr:pi=1:ppp=pp\2
  if pp mod 2 = 0 then ppp=ppp-1
  pl=viewpage-ppp:pr=pl+pp-1
  if pl<1 then
    pr=pr-pl+1:pl=1
    if pr>allpages then pr=allpages
  end if
  if pr>int(allpages) then
    pl=pl+allpages-pr:pr=allpages
    if pl<1 then pl=1
  end if
  if pl>1 then
    response.write pagecute&" <a href='"& pageurl &"' title='第一页'>[|<]</a>  <a href='"& pageurl &"?pageno="&pl-1&"' clases=706501 title='上一页'>[<]</a> "
  end if
  for pi=pl to pr
    if cint(viewpage)=cint(pi) then
      response.write pagecute&" <font color=red>[" & pi & "]</font> "
    else
      response.write pagecute&" <a href='"& pageurl &"?pageno="& pi &"' title='第 " & pi & " 页'>[" & pi & "]</a> "
    end if
  next
  if pr<allpages then
    pagecute=pagecute&" <a href='"& pageurl &"?pageno="&pi&"' title='后一页'>[>]</a>  <a href='"& pageurl &"?pageno="& allpages &"' title='最后一页'>[>|]</a> "
  end if
end function
%>