conn.asp

网络棋牌服务端简单的聊天程序界面

<%
function DBCN()
  set DBCN=Server.CreateObject("ADODB.Connection")
  strDB="Data Source=jchat;User ID=;Password=;driver=Microsoft Access Driver (*.mdb)"
  DBCN.open strDB   
  if not Err="" and Err<>0 then
     set DBCN=nothing
  end if
end function
function htmlencode(fString)
  if isnull(fString) then fString=""
  if fString<>"" then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10), "<br>")
  end if
  htmlencode = fString
end function
function htmldecode(fString)
  if isnull(fString) then fString=""
  if fString<>"" then
    fString = replace(fString, "<br>", CHR(10))
  end if
  htmldecode = fString
end function
%>