Time of Update: 2017-01-13
'=================================================='過程名:SaveRemoteFile'作 用:儲存遠端檔案到本地'參 數:LocalFileName ------ 本地檔案名稱'參 數:RemoteFileUrl ------ 遠程檔案URL'==================================================sub
Time of Update: 2017-01-13
/* *-------------------------------------------------------------------- * *建立一個XMLHttp執行個體 *return object
Time of Update: 2017-01-13
利用Request.ServerVariables("QUERY_STRING")取得接收的值(?後的參數)。例如[url=http://www.111cn.net/?3-8.html]http://www.111cn.net/?3-8.html[/url]接收的就是3-8.html,對3-8.html進行過濾,只需要取得參數3和8, 根據3和8再去從資料庫中檢索資料,後面跟動態ASP相同。這樣既可實現asp的偽靜態html化。<%dim
Time of Update: 2017-01-13
Function TransferHTML(ByVal source,para) Dim objRegExp '先換"&" If Instr(para,"[&]")>0 Then source=Replace(source,"&","&") If Instr(para,"[<]")>0
Time of Update: 2017-01-13
<%'------------------------------------------------------------'------------------------------------------------------------CLASS pagination PUBLIC pageSize '每頁顯示多少記錄 PUBLIC absolutePage '當前頁
Time of Update: 2017-01-13
<%Option ExplicitResponse.buffer=trueNumCodeFunction NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" dim
Time of Update: 2017-01-13
<%'----------------------------------------------------------------------Dim oUpFileStream'----------------------------------------------------------------------'檔案上傳類Class UpFile_ClassDim Form,File,Version,ErrPrivate Sub
Time of Update: 2017-01-13
<%Session.CodePage = 936 Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache"
Time of Update: 2017-01-13
<!--#include file="adoconn.asp"--><html><head><title>檔案上傳</title><meta name="Description" Content=""><link rel="stylesheet" href="manage.css"
Time of Update: 2017-01-13
<%Dim IP_address,IP_rs,CIP,IP_conn,IP_connstr,IP_province,IP_city,rs,IP_pyConst DataType=0 '0為Access資料庫,1為SQL Server資料庫Const
Time of Update: 2017-01-13
代碼如下複製代碼 <!--#include file=Function.asp--><%Dim Url,Html,timetime=Request("time")Url="http://weather.cncn.com/get_weather.php?action=get_city&time='"&time&"'"// 讀取cncn上的天氣資訊Html =
Time of Update: 2017-01-13
代碼如下複製代碼 <%Call Com_CreatValidCode("code")Sub Com_CreatValidCode(pSN) ' 禁止緩衝 Response.Expires = -9999 Response.AddHeader "Pragma","no-cache" Response.AddHeader
Time of Update: 2017-01-13
<%h_Href = http://down.111cn.neth_Name = "第五吧導航站"'Go.asp 頁面Sub Frame_Go() If Request("Key") = "" Then Response.Redirect "./Index.htm"End Sub%><%Url="http://weather.265.com/weather/"&
Time of Update: 2017-01-13
Function GetHttpPage(HttpUrl) If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then GetHttpPage="$False$" Exit Function End If Dim
Time of Update: 2017-01-13
<%connstr="DBQ="+server.mappath("database/database.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)}" Set conn= Server.CreateObject("ADODB.Connection") conn.open connstrsql = "select * from ypxxtwo
Time of Update: 2017-01-13
代碼如下 複製代碼 function showpage(sto,allpage,page) '根據總頁數與當前頁數顯示頁數 dim first,last page=max(min(page,allpage),1) if (allpage>1)
Time of Update: 2017-01-13
此搜尋工具可以讓您將搜尋字詞或片語在您的網站,以及由此產生的網頁將顯示您的訪客網頁的標題和一個指向它的連結。 你只需要包括波紋管的形式在您的網頁:html頁面.<form method="POST" action="/cgi-bin/searchfiles.asp"> <table border=0 cellpadding=5 bgcolor=AAAAAA><tr> <td align=center>
Time of Update: 2017-01-13
<%' 要取關鍵字的網頁RemoteURL = "http://111cn.net " ' 建立 xmlhttp串連Set objXML = CreateObject("Microsoft.XMLHTTP") objXML.Open "get", RemoteURL, False objXML.Send ' 取得返回資料ResponsePage = objXML.responseTextSet objXML =
Time of Update: 2017-01-13
My Code很簡單<% '------------------------------------------------------------'使用表單提交產生靜態首頁的代碼'確保你的空間支援FSO,且首頁代碼內容較少'------------------------------------------------------------dim contentcontent=Trim(Request.Form("content"))if
Time of Update: 2017-01-13
IIS伺服器出現500錯誤 2錯誤原因:500錯誤的原因一般是來源程式出現錯誤造成的。3 解決辦法:1 首先設定IE瀏覽器à工具->Internet選項 2 重新整理或者重新開啟500錯誤頁面就會出現錯誤的程式部分 3 根據錯誤提示,然後解決問題。 4 ADODB.Connection 建立失敗的可能解決方案: 1、重裝MDAC2.8。 MDAC 2.8下載地址: http://www.microsoft.