ASP小技巧集锦

1.连接数据库
ACCESS数据库
"Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = "& Server.MapPath ("/********/***.mdb")
Microsoft SQL数据库
“Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User id=登入名称;Password=密码;”
Oracle数据库
“Provider=OraOLEDB.Oracle;Data Source=数据库名称;User id=登入名称;Password=密码;”

例："provider=SQLOLEDB;data source=SAL\SQLEXPRESS;integrated securty=SSPI;database=KingofSAL;"
integrated security=SSPI;——windows身份验证
database=Initial Catalog——都可以用

2.获取浏览人IP地址
Request.ServerVariables("REMOTE_ADDR")

3.修改连续字母破坏版面
valign="top"style="word-break:break-all"      在表格的<TD>中加入

4.图片也具有表单送出/重置功能
onClick="javascript:form1.submit();"     送出:在图片代码中加入
onClick="javascript:form1.reset();"       重置:在图片代码中加入
注:form1指的是图片所在表单的name,在图片的链接上加"#",使之具有链接的样式!

5.转到另一页
表单或按钮：onClick="window.location.href='网址';"
            onClick="window.history.back();"    (返回上一页)

6.重整窗口
window.opener.location.reload();
window.close();

window.opener是指原窗口，location.reload()是窗口重整的动作。
window.close()是关闭本窗口的动作。

7.搜索引擎
Select * from 表 WHERE 字段 like '%sKeyword%' OR 字段 like '%sKeyword%' OR 字段 like '%sKeyword%'

8.获取在线人数onlineuser
※程序代码一
<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID
RefreshTime = 10
IdleTime = RefreshTime * 3
Application.Lock
If Application(Session.SessionID & "LastAccessTime") = Empty Then
  If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0
  ReDim Tmp(Application("TotalUsers") + 1)
  Num = 0
  If Application("TotalUsers") > 0 Then
    For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser"))
      ID = Application("OnlineUser")(I)
      If ID <> Session.SessionID Then
        Tmp(Num) = ID
        Num = Num + 1
      End If
    Next
  End If
  Tmp(Num) = Session.SessionID
  Application("TotalUsers") = Num + 1
  ReDim Preserve Tmp(Application("TotalUsers"))
  Application("OnlineUser") = Tmp
End If
Application(Session.SessionID & "LastAccessTime") = Timer
ReDim Tmp(Application("TotalUsers"))
Num = 0
For I = 0 To Application("TotalUsers") - 1
  ID = Application("OnlineUser")(I)
  If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then
    Tmp(Num) = ID
    Num = Num + 1
  Else
    Application(ID & "LastAccessTime") = Empty
  End If
Next
If Num <> Application("TotalUsers") Then
  ReDim Preserve Tmp(Num)
  Application("OnlineUser") = Tmp
  Application("TotalUsers") = Num
End If
Application.UnLock
%>
※程序代码二
<%= Application("TotalUsers") %>