以下代碼在阿里云的虛擬主機跟Windows 2003 server的IIS系統下運行正常，但是win 7 及win 10 的IIS里面就無法執行！服務器都支持asp！
' 建立資料庫鏈接，并設定遇到錯誤跳過繼續執行
On Error Resume Next : Err.Clear
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("_Conn2")
' 讀出已經登記的總訪問人數
set rs16=server.createobject("adodb.recordset")
sql16="select top 1 * from OnLine order by ID DESC"
rs16.open sql16,conn,1,1
while not rs16.eof
Application.Lock()
Application("_OnTotal") = rs16("OnTotal")
Application.UnLock()
rs16.MoveNext
wend
rs16.Close : set rs16=nothing
' 關閉資料庫鏈接并結束
Conn.Close: set Conn=nothing
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/258293.html
標籤：ASP
上一篇：Vue-Element-Admin request（）方法POST資料格式為Request Payload改為FormData
下一篇：微信小程式上傳及預覽檔案