ASP常用函数收藏乱七八糟未整理版(48)

        fString = Replace(fString, Chr(10), "<BR> ")
        HTMLEncode = fString
    End If
End Function

' *----------------------------------------------------------------------------
' * 函数：HTMLcode
' * 描述：过滤表单字符
' * 参数：--
' * 返回：--
' * 作者：
' * 日期：
' *----------------------------------------------------------------------------

Function HTMLcode(fString)
    If Not IsNull(fString) Then
        fString = Replace(fString, Chr(13), "")
        fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
        fString = Replace(fString, Chr(34), "")
        fString = Replace(fString, Chr(10), "<BR>")
        HTMLcode = fString
    End If
End Function
%>
11.ACCESS数据库连接:
<%
Option Explicit
Dim startime, endtime, conn, connstr, db
startime = Timer()
'更改数据库名字
db = "data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr

Function CloseDatabase
    Conn.Close
    Set conn = Nothing
End Function
%>
12.SQL数据库连接:
<%
Option Explicit
Dim startime, endtime, conn, connstr, db
startime = Timer()
connstr = "driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr

Function CloseDatabase
    Conn.Close
    Set conn = Nothing
End Function
%>
13.用键盘打开网页代码:
<script language="javascript">
function ctlent(eventobject)
{
if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))
{
window.open('网址','','')
}
}
</script>　
这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行