Time of Update: 2017-01-13
〈%class SQLString'************************************'變數定義'************************************'sTableName ---- 表名'iSQLType ----SQL語句類型:0-增加,1-更新,2-刪除,3-查詢'sWhere ---- 條件'sOrder ---- 排序方式'sSQL ----值Private sTableName,iSQLType,sWhere,sOrder,sSQL'****
Time of Update: 2017-01-13
'解決了ACCESS資料庫路徑的問題!'採用DBType=0或DBType=1來區分AC庫還是MSSQL庫'具體採用AC庫時應注意的事項,請看程式說明--------------------------------------------------------------------------------Dim DBType,Conn,StrConnDBType=0 '0為Access資料庫,1為MSSQL資料庫 If(DBType=0) Then'**************
Time of Update: 2017-01-13
aspnet forums介面的最關鍵的問題首先在於它使用了MetaBuilders的Master Pages 控制項.到http://www.metabuilders.com/Tools/MasterPages.aspx處下載此控制項來研究一下: 一、Master Pages包括四個類: (1)Content: This control contains the content for a particular region 此類控制項包含真實內容(2)ContentContainer:
Time of Update: 2017-01-13
通過ASP程式可以修改資料表以及欄位的名稱,這樣可以對所建的表有一定的修改和維護了。所用的SQL語句:sp_rename 'customers.[contact title]', 'title', 'COLUMN'但是在使用時,發現一個問題,當重新命名名字相同但大小寫有差異的欄位名時會報錯:15477 0 注意:更改對象名的任一部分都可能破壞指令碼和預存程序。看來通過語名重新命名對象還是有問題的,不知道有沒有解決的辦法,這時候也只好手工去庫裡改一下欄位名了……
Time of Update: 2017-01-13
客戶要求儲存原有的img已在的屬性,鬱悶,繼續改代碼如下:function shownew(content,ntype)shownew = ""if(ntype = 1) thenshownew = shownew &" <TABLE width=100% >"shownew = shownew &"<TR>"shownew = shownew &" <TD width=7
Time of Update: 2017-01-13
2)建立帶密碼的Mdb資料庫的Recordset對象,它的建立方式與建立不帶密碼的Mdb資料庫的Recordset對象類似,只是多了一個密碼參數,即在與資料庫連接時,必須給出密碼資訊。Function CreateSecuredMdbRecordset( 資料庫檔案名, 資料表名或Select語句,password ) Dim conn,Provider,DBPath ’ 建立Connection 對象 Set conn =
Time of Update: 2017-01-13
asp 取得內容中的圖這是我常用的一段代碼,用正則取得文章內容中的圖片地址.Function getphoto(strHTML,key) Dim objRegExp, Match, Matches Set objRegExp = New RegexpobjRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = key '<img src\=.+?\.(gif|jpg|bmp).+?\>tp=
Time of Update: 2017-01-13
asp產生縮圖 asp 自動產生縮圖 asp.net 產生縮圖 asp代碼產生器 aspjpeg是免費的,下一個就能用,現在一般的空間都支援這個組件 無組件的原理和在圖片上寫width=100 height=100 一樣的,只是寬高等比了,體積還是沒有壓縮,估計無組件做不了這個吧 call compressphoto(photopath,120,
Time of Update: 2017-01-13
<%sql=""Set Rs=Server.CreateObject("Adodb.RecordSet")Rs.open Sql,TXconn,1,1If Rs.RecordCount Then TopNum=10 '定義每頁顯示多少條 &
Time of Update: 2017-01-13
將現有的ASP頁直接產生靜態頁,將會節省很多。 下面的例子是將、www.111cn.net/index.asp?id=1/index.asp?id=2/index.asp?id=3/這三個動態網頁面,分別產生ndex1.htm,index2.htm,index3.htm存在根目錄下面: Code: <% dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Time of Update: 2017-01-13
因為要做移動夢網WAP的一些介面,所以要用到這種方式,接下來會有ASP.net版本的,這個是ASP版本的,利用了MSXML2.XMLHTTP對像。 request.asp 以下是引用片段:dim Https set Https=server.createobject("MSXML2.XMLHTTP") ’定義一個XMLHTTP對像 Https.open "
Time of Update: 2017-01-13
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 5.0"><meta
Time of Update: 2017-01-13
<%Dim conn,rsDim connstrDim sqlCmd'建立資料庫連接對象並開啟set conn=server.createobject("adodb.connection")connstr="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("data.mdb")conn.open
Time of Update: 2017-01-13
只簡單的寫了一些,function html_encode(html)dim
Time of Update: 2017-01-13
代碼如下複製代碼
Time of Update: 2017-01-13
稱來判斷圖片是否存在,判斷遠程圖片是否存在,原理是利用XMLHTTP.status來判斷function CheckURL(byval A_strUrl)set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")XMLHTTP.open "HEAD",A_strUrl,falseXMLHTTP.send()CheckURL=(XMLHTTP.sta
Time of Update: 2017-01-13
下面的代碼是post.asp檔案代碼.比較簡單所以就不說明了.<%@Language="JavaScript" CodePage="936"%><%var Nothing;Response.addHeader("Cache-Control","no-cahce");if(!Session.Contents("Chat_User")){
Time of Update: 2017-01-13
指令碼引擎JScript編譯版本8513主 版 本5次 版 本6源碼:<HTML><HEAD><TITLE>測試WEB伺服器</TITLE></HEAD><BODY><Script language=jscript runat=server>response.write ("<table border=1>");response.write
Time of Update: 2017-01-13
今天是2004年8月17日, 離高考還有-1137天 源碼:<%@ Language=VBScript %><html><title>倒記時間</title><body><%response.write "今天是"response.write formatDateTime(Date(),1) & "," '格式化為長日期格式輸出顯示response.write " 離高考還有"response.write
Time of Update: 2017-01-13
<%Dim RemoteAddrif Request.ServerVariables("HTTP_X_FORWARDED_FOR")=Empty then remoteaddr=Request.ServerVariables("REMOTE_ADDR")else RemoteAddr=Request.ServerVariables("HTTP_X_FORWARDED_FOR")end ifIf GetMac(RemoteAddr)