日韩欧美国产二区,欧美午夜不卡,国产在线精品一区二区三区》

ASP中Utf-8與Gb2312編碼轉換亂碼問題的解決方法頁面編碼聲明

2023/2/22 10:21:11

ASP程序在同一個站點中,如果有UTF-8編碼的程序，又有GB2312編碼的程序時，在瀏覽UTF-8編碼的頁面后，再瀏覽當前網站GB2312的頁面，GB2312編碼的頁面就會出現亂碼出現這樣的問題是當你瀏覽UTF-8編碼的時候，服務器默認用UTF-8的引擎來輸出html，當你用再瀏覽GB2312的頁面時，它還是用UTF-8來輸出本應是GB2312編碼的頁面所以會亂碼。首先讓我們來了解一下Session對象提供了四個屬性。 1.CodePage 讀/寫。整型。定義用于在瀏覽器中顯示頁內容的代碼頁（Code Page）。代碼頁是字符集的數字值，不同的語言和場所可能使用不同的代碼頁。例如，ANSI代碼頁 1252用于美國英語和大多數歐洲語言。代碼頁932用于日文字。（這里我們要用到的就是這個屬性） 2.LCID 讀/寫。整型。定義發送給瀏覽器的頁面地區標識（LCID）。LCID是唯一地標識地區的一個國際標準縮寫，例如，2057定義當前地區的貨幣符號是'￡'。LCID也可用于FormatCurrency等語句中，只要其中有一個可選的LCID參數。LCID也可在ASP處

asp顯示隨機密碼

2022/7/25 14:38:20

'隨機顯示密碼 function ranpassword(ps_len,xml) strstring = "abcdefghijklmnopqrstuvwxyzABCEDFGHIJKLMNOPQRSTUVWXYZ1234567890" randomize timer dim i,a ranpassword="" password_length = 16 if ps_len<>"" and ps_len<>"0" then password_length=clng(ps_len) end if for i=1 to password_length a=int(rnd*(len(strstring)))+1 ranpassword=ranpassword+mid(strstring,a,1) next end function

通過阿里云服務接口獲得ip地址詳細信息

2022/7/25 9:17:54

Dim ip,datatype,token,url Function BytesToBstr(strBody,CodeBase) dim objStream set objStream = Server.CreateObject("Adodb.Stream") objStream.Type = 1 objStream.Mode =3 objStream.Open objStream.Write strBody objStream.Position = 0 objStream.Type = 2 objStream.Charset = CodeBase BytesToBstr = objStream.ReadText objStream.Close set objStream = nothing End Function 'Get內容 Function geturl_diy(url,d_biaoqian,xml2) dim http set http=server.createobject("Msxml2.ServerXMLHTTP")

iis點開后任務欄上有顯示，但是窗口看不到的解決辦法

2022/6/18 8:55:51

啟動【IIS管理器】后，在任務欄中有，但是窗口不見了。嘗試在【設置=》控制面板=》程序=》程序和功能】重新安裝IIS相關組件，重啟電腦后還是沒解決。網上查了一下，找到解決辦法：開始=》運行命令=》輸入：inetmgr.exe /reset 搞定！！原因：由于某種原因，之前該窗口的位置被改動過，顯示在我們顯示器之外的地方，所以我們看不見它。這個命令把它的設置還原了。

RSA加密解密插件

2022/6/3 15:55:10

<% ''........................................ '' RSA插件 '' author Flc 2021-02-02 '' Version v1.0 ''........................................ Public Publickey, Privatekey Private SB, Rsa Private s_B, s_R, s_U Private Sub Class_Initialize() Set SB = App.Str.StringBuilder() Set Rsa = Server.CreateObject("System.Securi

微軟Encoder加密解密函數

2022/6/3 15:52:32

<% ''微軟Encoder加密解密 ''暫時只支持中文，英文，其他語言未測試 ''Author:amuie@126.com Private Ary, En, SB, StrStartFlag, StrEndFlag Private Sub Class_Initialize() Set En = Server.CreateObject("Scripting.Encoder") Set SB = App.Str.StringBuilder() StrStartFlag = App.Str.RegexpEncode("#@~^") StrEndFlag = App.Str.RegexpEncode("==^#~@") Ary = Array( _ &h00, &h00, &h00, &h01, &h01, &h01, &

asp無限級調用分類顯示

2020/11/20 21:47:17

點擊下載示例壓縮包：ASPsnakDemo.rar <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> asp無限級調用分類 <% dim startime,cn,connstr,db startime=timer() db="db.mdb" '數據庫 'on error resume next '嘗試連數據庫，一直到超時，但可以加

實現iis6與iis7環境下支持mp4視頻隨意拖動、預覽播放、邊下載邊播放

2019/12/17 14:22:25

前幾天，一客戶需要在IIS環境下實現MP4視頻可以隨意拖動觀看，邊下載邊播放。一看這要求，IIS本身是無法實現，想著應該需要用插件，于是GG一番，剛真找到這樣的插件，此組件為H264-Streaming-Module ISAPI extension for IIS。　　IIS6版本下載地址：http://h264.code-shop.com/download/iis5_mod_h264_streaming-2.2.0.zip 　　IIS7版本下載地址：http://h264.code-shop.com/download/iis7_mod_h264_streaming-2.2.7.zip IIS6下安裝步驟如下：　　1、下載對應版本的mod_h264_streaming，把mod_h264_streaming.dll解壓到一個目錄，如：E:\h264\mod_h264_streaming.dll 　　2、請配置該文件所在目錄權限為：Administrator/完全控制；SYSTEM/完全控制；USER/讀取和運行（這個權限很重要，不然IIS無法加載這個組

做好的網站把http改成https申請SSL域名證書

2019/10/9 11:04:17

第一步：去注冊域名第二步：目前我只使用兩個網站的免費證書 1.阿里云 https://www.aliyun.com/ 2.騰訊云 https://cloud.tencent.com/ 阿里云平臺操作說明(阿里云 https://www.aliyun.com/) 1. 在阿里云產品中心搜索【ssl證書】 2. 點擊立即開通 3. 申請開通，點擊購買，支付， 4. 提交要申請的證書信息（一定要填寫域名證密碼---這個在后期時候特別有用） 5. 申請好證書之后，需要對域名進行txt別名解析。 6. 解析好之后就可以下載對應的證書（如果你不是用阿里云的服務器就點擊下載（下載的時候選擇對應的版本類型，如果是IIS就選擇IIS），如果你使用的是阿里云的云服務器，可以點擊部署就行了，就更方便了。） 7. 將下載好的IIS證書解壓開，到服務器端 8. 進入IIS ---- 服務器證書

純asp根據當前日期計算出當前年份的屬相

深山工作室 — 2019/9/18 22:33:05

以下是asp根據當前日期的年份計算出相應年份的屬相，以上是演示效果 <% curTime = Now() curYear = Year(curTime) function ren_shuxiang(s_year) sx_year = (((curYear - 4) Mod 60) Mod 12) select case sx_year case 0: sx_show="鼠" case 1: sx_show="牛" case 2: sx_show="虎" case 3: sx_show="兔" case 4: sx_show="龍" case 5: sx_show="蛇" case 6: sx_show="馬" case 7: sx_show="羊" case 8: sx_show="猴" case 9: sx_show="雞" case 10:sx_show="狗" case 11:sx_show="豬" end select ren_shuxiang = sx_show end function response.wr

sql server中前綴為PK、UK、DF、CK、FK表的意思

2019/5/30 11:15:02

PK 主鍵 constraint primary key UK 唯一約束 constraint unique key DF 約束默認 constrint default for CK 檢查約束 constraint check() FK 主外鍵關系 constraint foreign references

ASP利用fso讀取文件夾里所有文件的名字

深山工作室 — 2019/5/2 21:47:46

<% set fs=CreateObject("Scripting.FileSystemObject") set f=fs.GetFolder(Server.MapPath("UploadFiles")) '文件夾的名稱 set fc=f.Files for each f1 in fc response.write f1.name response.write "
" next %>

asp實現獲得當前文章的上一篇信息與下一篇信息功能及代碼

2019/4/16 14:40:46

按文章ID排序獲取當前信息的上一篇信息與下一篇信息獲得上一篇信息<%sql="select top 1 [id],[標題] from [數據表名] where [id]<" & 當前文章id & " order by id desc"set rs=conn.execute(sql) 'conn為打開數據庫變量if rs.eof then response.write("上一篇文章：沒有了
")else response.write("上一篇文章：" & rs(1) & "
")end ifrs.closeset rs=nothing%>獲得下一篇信息<%sql="select top 1 [id],[標題] from [數據表名] where [id]>" & 當前文章id & " order by id asc"set rs=conn.execute(sql)

asp導出內容到excel表并自定義命名后下載（非打開）

深山工作室 — 2019/4/16 14:29:04

本ASP程序代碼實現兩個功能：1、將指定的數據庫內容導出到EXCEL表格（可改為其它格式）。2、任何類型的文件都是直接下載，不是在瀏覽器打開，并且自定義另存為對話框里的默認文件名。完整代碼如下：<%dim actionaction=lcase(trim(request.querystring("action")))if action="down" then '下載文件 '任何類型的文件都是直接下載，不是在瀏覽器打開，且自定義另存為對話框里的默認文件名。 call gw_downfile(trim(request.querystring("f")),"文章列表.xls") '參數：服務器端文件路徑及文件名，客戶端下載時的默認文件名else '導出文件 '將指定的數據庫內容導出到EXCEL表格（可改為其它格式） const filename="news.xls" '導出后的文件名（全名，帶.擴展名） dim

'禁止站外提交頁面和數據

深山工作室 — 2019/4/16 11:31:00

<% call waizhan_addform() '禁止站外提交頁面和數據 sub waizhan_addform() dim this_page_url : this_page_url=cstr(request.servervariables("HTTP_REFERER")) '獲取前一個頁面的全URL dim this_page_yuming : this_page_yuming=cstr(request.servervariables("SERVER_NAME")) '獲取當前頁面所在服務器域名 'response.write("前一個頁面的全URL：" & this_page_url & "
") 'response.write("當前頁面所在服務器IP：" & this_page_yuming & "
") &n

asp將中文漢字字符轉為unicode編碼(\u編碼)與把unicode編碼轉為漢字

深山行者 — 2019/4/16 11:19:50

<%dim zhuan_textzhuan_text = "深山工作室"%>要轉換的內容：<%=zhuan_text%>
轉換之后的代碼：<%=tounicode(zhuan_text)%>
轉碼之后的文字：<%=unicodeto("\\u6df1\u5c71\u5de5\u4f5c\u5ba4")%>
<%function tounicode(str) '中文轉unicode tounicode="" dim i for i=1 to len(str) 'asc函數：返回字符串的第一個字母對應的ANSI字符代碼 'AscW函數：返回每一個GB編碼文字的Unicode字符代碼 &nbs

asp中qequest讀取優先級順序（通過優化之后提高速度）

2019/4/15 22:32:46

在ASP中，Request("")是一個復合功能讀取函數，它的優先級順序為：（↓）1、QueryString：即 Request.QueryString("")（↓）2、Form：即 Request.Form("")（↓）3、Cookies：即 Request.Cookies("")（↓）4、ServerVariables：即 Request.ServerVariables("")Request("")特點：1、它將從上到下按順序獲取內容，當前面內容不為空時則停止往下獲取。2、最多做出4個嘗試，只有四個嘗試都失敗，才返回空。3、執行效率差，建議使用唯一獲取方式，如表單POST提交的就用Request.Form("")獲取。

asp計算頁面執行時間顯示到毫秒

2019/4/15 22:07:57

當前asp頁面執行完畢所用的時間操作如下： <% 'timer函數：返回午夜12時以后已經過去的秒數 dim page_start_time page_start_time = timer() %> 以上代碼一定要在頁面頂部加上在網頁的底部位置再獲取當前過去的秒數，并減去開始的秒數，且格式化輸出。頁面執行時間：<%page_end_time=timer() response.write FormatNumber((page_end_time-page_start_time)*1000,3)%>毫秒

批量刪除access字段里面fld.Properties.Delete

2018/6/21 17:40:27

access數據庫中，在設計數據庫的時候，會對應的字段添加相應的字段開發說明但是上線之后我們就要刪除這些開發字段說明，需要批量的刪除（PS：這些開發字段說明可以不刪除，也可以刪除）單獨刪除某個字段“說明”屬性用： CurrentDb.TableDefs("表名稱").Fields("字段名").Properties.Delete "Description" 批量刪除所有字段“說明”屬性用： Sub RemoveAllFieldDescription() On Error Resume Next Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set dbs = CurrentDb &nbs

ASP操作access或sqlserver數據庫的函數庫

2018/6/21 17:35:47

<%'*======================================'* 名稱：useDb.asp'* 功能：數據庫操作函數庫'* 作者：intereye'* 信箱：inteye@163.com'* 主頁：http://www.inteye.net'* BLOG：http://blog.csdn.net/intereye'*======================================'* 函數：openDb(dbType,dbUser,dbPass,dbName,dbServer,dbPath)'* 功能：打開數據庫連接'* 參數：dbType->數據庫類型 MDB ACCESS數據庫 || SQLSERVER SQLSERVER數據庫'* 參數：dbUser->訪問數據庫用戶名'* 參數：dbPass->訪問數據庫密碼'* 參數：dbName->數據庫名稱'* 參數：dbServer->數據庫Host'* 參數：dbPath->數據庫路徑Function openDb(dbType,dbUser,dbPass,

asp中求兩個數的百分比（利用百分比函數FormatPercent就可以自帶%的符號）

深山工作室 — 2018/5/28 17:01:29

FormatPercent 函數返回表達式，此表達式已被格式化為尾隨有 % 符號的百分比（乘以 100 ）。FormatPercent(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])FormatPercent 函數的語法有以下參數：參數Expression必選項。要被格式化的表達式。NumDigitsAfterDecimal可選項。指示小數點右側顯示位數的數值。默認值為 -1，指示使用的是計算機的區域設置。IncludeLeadingDigit可選項。三態常數，指示是否顯示小數值小數點前面的零。有關數值，請參閱“設置”部分。UseParensForNegativeNumbers可選項。三態常數，指示是否將負值置于括號中。有關數值，請參閱“設置”部分。 GroupDigits可選項。三態常數，指示是否使用計算機區域設置中指定的數字分組符號將數字分組。有關數值，請參閱“設置”部分。設置IncludeLeadingDigit、Use

asp利用sql操作數據表、數據庫的一些方法

深山工作室 — 2018/5/25 11:39:48

數據處理語言 ##################################### (1) 數據記錄篩選： ===================================== sql="select * from 數據表 where 字段名=字段值 order by 字段名 [asc/desc]" sql="select * from 數據表 where 字段名 like ''%字段值%'' order by 字段名 [asc/desc]" sql="select top 10 * from 數據表 where 字段名 order by 字段名 [asc/desc]" sql="select * from 數據表 where 字段名 in (''值1'',''值2'',''值3'')" sql="select * from 數據表 where 字段名 between 值1 and 值2" (2) 更新數據記錄： ===================================== sql="update 數據表 set 字段名=

rs操作數據表記錄集對象的方法

深山工作室 — 2018/5/25 11:35:48

記錄集對象的方法： rs.movenext 將記錄指針從當前的位置向下移一行 rs.moveprevious 將記錄指針從當前的位置向上移一行 rs.movefirst 將記錄指針移到數據表第一行 rs.movelast 將記錄指針移到數據表最后一行 rs.absoluteposition=N 將記錄指針移到數據表第N行 rs.absolutepage=N 將記錄指針移到第N頁的第一行 rs.pagesize=N 設置每頁為N條記錄 rs.pagecount 根據 pagesize 的設置返回總頁數 rs.recordcount 返回記錄總數 rs.bof 返回記錄指針是否超出數據表首端，true表示是，false為否 rs.eof 返回記錄指針是否超出數據表末端，true表示是，false為否 rs.delete 刪除當前記錄，但記錄指針不會向下移動 rs.addnew 添加記錄到數據表末端 rs.update 更新數據表記錄

[轉載]中國行政區劃數據（省市區街道）

2018/5/14 10:48:03

中國行政區劃數據（省市區街道）來源網址：https://www.v2ex.com/t/301610?p=1中國行政區劃數據庫項目： https://github.com/mumuy/data_locationjQuery 插件項目（包含城市聯動插件）： https://github.com/mumuy/widget城市多級聯動演示： http://jquerywidget.com/jquery-citys/

ASP版通過身份證信息獲取對應的生日性別年齡

深山工作室 — 2018/5/14 10:35:46

通過身份證識別生日和性別、年齡 <% '位數判斷 Sno=request("Sno") If Len(Sno)="15" Then mm="15" xxx=Right(Sno,1) End If If Len(Sno)="18" Then mm="18" yyy=Right(Sno, 2) xxx=Left(yyy, 1) End If '性別判斷 If xxx Mod 2=0 Then nn="女"'女 Else If xxx Mod 2=1 Then nn="男"'男 End If End if Dim a, b, c, d, e a = Sno '新身份

ASP網站打開特別卡提示：msxml3.dll 錯誤 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解決辦法

深山工作室 — 2018/5/9 10:29:10

ASP網站打開特別的卡，特別的慢 ping通，網址也正常最后提示： msxml3.dll 錯誤 '80072ee2' A connection with the server could not be established /LM/W3SVC/670931603/Root/global.asa，行 15 最后打開網站，發現根目錄多了一個global.asa 如果你是自己的服務器，發現網站根目錄沒有global.asa，請將文件設置為顯示隱藏的文件就可以找到了。

asp中Request.ServerVariables能獲取的信息整理總結

深山工作室 — 2018/4/16 10:27:32

Request.ServerVariables("REMOTE_ADDR") '獲取訪問IPRequest.ServerVariables("LOCAL_ADDR") '同上Request.ServerVariables("SERVER_NAME") '獲取服務器IPRequest.ServerVariables("HTTP_REFERER") '獲取訪問來源頁面Request.ServerVariables("OS")

sql語句中怎么按照in語句里的id原有的順序進行排序輸出,可以做成瀏覽記錄、查看、觀看記錄

深山工作室 — 2018/4/13 15:17:02

有時候在制作一個查看瀏覽記錄的時候的時候，因為用戶不是按照順序去查看的，所以需要對SQL語句進行一些處理 sql語句中怎么按照in語句里的id原有的順序進行排序輸出可以做成瀏覽記錄、查看、觀看記錄，視頻瀏覽記錄、商品瀏覽記錄有時候我們需要按照in條件里的id順序輸出結果，可sql語句在不加order by的時候是按照asc排序的，下邊的sql解決按照in條件順序的id輸出查詢結果 Access:(測試可以使用) select * From 表 Where id in(2,9,4,3,6,8,1,7,5) order by instr(',2,9,4,3,6,8,1,7,5,',','&id&',') MSSQL:（測試可以使用） select * From 表 Where id in(2,9,4,3,6,8,1,7,5) order by charindex(','+rtrim(cast(id as varchar(10)))+',',',2,9,4,3,6,8,1,7,5,') MySQL: select * From 表

通過設置iis的進程池讓網站的并發數，性能提升幾個檔次

深山工作室 — 2018/4/10 11:59:10

學會調優iis，讓網站性能提升，速度更快，應對多更的訪問瀏覽。IIS應用程序池多工作進程設置1 概述微軟的IIS通過應用程序池工作進程數量的設置，可以支持從幾十到上萬并發數量的訪問。2 應用程序池多工作進程設置每個應用程序池的單一工作進程，能夠大約承受30-50個左右的并發，如果超出此并發數量，可能會出現IIS無法響應、或響應時間明顯變長的問題。通過合理設置應用程序池的最大工作進程數，可顯著提高IIS應對高并發的能力，減少網站響應時間。2.1 設置步驟 1、找到要設置的網站對應的應用程序池： 2、在所選應用程序池上點擊右鍵，選擇【高級設置】： 3、在彈出的【高級設置】窗口中向下拉找到【最大工作進程數】，并設置為合理值： 4、點擊【確定】按紐保存設置。2.2 注意事項1、最大工作進程數值的設置依據在確定每個應用程序池的最大工作進程數時，最主要參考的數據包括網站的最大并發用戶數以及WEB服務器的可用內存數。最大并發用戶數需要通過一段時間的觀察，記錄下在系統忙時的最大并發用戶數，按照每工

asp通過多次獲得來取得用戶的真實IP

深山工作室 — 2018/4/10 11:26:02

<%'asp取得用戶的真實IP'以下是網上找到的說明'1. Request.ServerVariables("HTTP_CLIENT_IP") 有，只是未成標準，不一定服務器都實現了。'2. Request.ServerVariables("HTTP_X_FORWARDED_FOR") 是有標準定義，用來識別經過HTTP代理后的客戶端IP地址，格式：clientip,proxy1,proxy2'3. Request.ServerVariables("REMOTE_ADDR") 是可靠的，它是最后一個跟你的服務器握手的IP，可能是用戶的代理服務器，也可能是自己的反向代理function checkip(checkstring) '用正則判斷IP是否合法 dim re1 set re1=new RegExp re1.pattern="^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" re1.global=false re1.Ignorecase=false checkip=re1.test(checkstring) set re1=not

通過XMLHTTP檢查網站能否打開

深山工作室 — 2018/4/3 21:39:18

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'通過XMLHTTP檢查網站能否打開Sub main_one() Dim t response.charset="gb2312" With CreateObject("MSXML2.XMLHTTP") rem .Open "GET", "http://www.cmrd4.cn/", False .Open "GET", "http://reetai.com/", False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send () rem t

asp利用sina提供的ip庫端口來獲得當前IP所有的地區，所在國，所在省，所在市，在線解析json

深山工作室 — 2018/3/20 15:13:15

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'asp利用sina提供的ip庫端口來獲得當前IP所有的地區，所在國，所在省，所在市，在線解析jsonthis_ip = Request.ServerVariables("REMOTE_ADDR")get_ip_url = "http://int.dpool.sina.com.cn/iplookup/iplookup.php?format=json&ip=" & g_ipUserInfo=GetURL(get_ip_url)Call InitScriptControl:Set objTest = getJSONObject(UserInfo)response.write "當前IP：" & this_ip & "____
"response.write "當前解析地址：" & get_ip_url & "____
"response.write "獲得的json內容：" & UserInfo &a

利用aspJpeg組件生成多圖片水印組合時給加上透明水印圖片

深山工作室 — 2018/3/16 17:00:02

<% '建立實例 Set Jpeg = Server.CreateObject("Persits.Jpeg") Set Jpeg1 = Server.CreateObject("Persits.Jpeg") '打開要加水印的圖片 Jpeg.Open Server.mappath(路徑) '透明圖片水印圖 Jpeg1.Open Server.mappath("../Images/sy.gif") '合并圖 Jpeg.Canvas.DrawImage 0,Jpeg.OriginalHeight/2-33,Jpeg1,0.6,&HFFFFFF '這句是可以起到加的gif或者png8圖片的背景透明，png24的格式會顯示有毛邊 ' 保存文件 Jpeg.Save Server.mappath(路徑) ' 注銷對象 Set Jpeg = Nothing Set Jpeg1 = Nothing %> 加透明圖片水印，實際上就是將兩個圖合并，最關鍵的就是這一句： Jpeg.Canvas.DrawImage 0,Jpeg.Origina

ASP連接各種數據庫的方法

深山工作室 — 2016/8/22 8:56:32

ASP與11種數據庫連接的代碼大全，相信這個很給力，特別是ASP新手朋友，包括了ASP連接Access、MYSQL、Oracle、dBase等各種數據庫的連接代碼，不費話了，給重點：ASP連接Access數據庫（DSN-less連接方法）:set adocon=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="&_Server.MapPath("數據庫所在路徑")ASP連接Access數據庫（ OLE DB連接方法）：set adocon=Server.Createobject("adodb.connection")adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&_"Data Source=" & Server.MapPath("數據庫所在路徑")ASP連接SQL server的方法：set adocon=server.createobject("adodb.recordse

asp獲得系統Unix時間戳與將Unix時間戳轉為正常日期

深山工作室 — 2016/8/15 19:04:22

<%unixtime=DateDiff("s", "01/01/1970 00:00:00", Now())response.write unixtime '顯示Unix時間戳response.write "

"response.write DateAdd("s",unixtime, "01/01/1970 00:00:00") '將Unix時間戳轉為正常日期response.write "

"response.write DateDiff("s", "01/01/1970 00:00:00", time) '這個顯示Unix時間戳不一樣%>以下是顯示效果14712877122016-8-15 19:01:52-2209093088

關于SQL2008 “不允許保存更改。您所做的更改要求刪除并重新創建以下表。您對無法重新創建的標進行了更改或者啟用了‘阻止保存要求重新創建表的更改’” 解決方案

2016/8/2 21:57:20

近日在使用sql2008的過程中，要對已經創建完成的表結構進行修改，卻一直提示彈出如下提示：“不允許保存更改。您所做的更改要求刪除并重新創建以下表。您對無法重新創建的標進行了更改或者啟用了“阻止保存要求重新創建表的更改”開始還以為是因為我過多的在家里以及公司的機子上使用這個數據庫引起的版本問題，但是最后確定并非是版本問題，經過搜素，找到了相應的解決方法：打開SQL SERVER 2008 工具-->選項-->Designers-->表設計器和數據庫設計器，把“阻止保存要求重新創建表的更改”的勾去掉然后點“確定”即可。

access數據庫做的網站出現.ldb不能刪除超過2KB之后就會網站訪問不了數據庫，提示數據庫不存在

2016/6/16 11:49:35

.ldb的文件是ACCESS讀寫的時候的臨時文件,只要讀寫ACCESS文件就會生成.1. 排除空間問題二.訪問數據庫的程序優化主要都是因為對數據庫存取完后，沒有及時釋放記錄集和斷開數據庫連接rs.closeset rs=nothingconn.closeset conn=nothing例子：conn.asp<%dim conndim connstrdim dbdb="database/data.mdb"Set conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(""&db&"")conn.Open connstrIf Err Thenerr.ClearSet Conn = NothingResponse.Write "服務器正在維護，請稍后再試。"Response.EndEnd IfSub CloseConn()'以下是斷開數據庫連接語句conn.closeset conn=

asp中最難發現的錯誤由最簡單的程序引起

2016/6/7 15:48:25

這是一個非常簡單的asp程序，就是將兩個字符串連接后輸出，這已經是asp開發過程中最簡單的程序了，如下： <% ca="1" ha="2" response.write ca&ha %> 你保存成一個asp文件，然后運行一下，看看結果是什么？以下是運行的錯誤結果 ========================================== 錯誤類型： Microsoft VBScript 編譯器錯誤 (0x800A0401) 語句未結束 /d.asp, line 4, column 17 response.write ca&ha ----------------^ ========================================== 這也太簡單了，你可能想都不用想，直接回答運行結果是12。沒有想到結果是錯誤的提示語句未結束因為這段程序實在是太簡單了，找了N遍都找不出來這段程序有錯誤。什么原因導致這段程序有錯了？網上找了一下，找到原因了："asp中

Asp得到當月天數的函數方法

2016/3/12 14:58:19

dd=dateadd("m",date,1) '獲取下月的今天日期dd=cdate(year(dd)&"-"&month(dd)&"-1") '獲取下月第一天的日期 year(dd)是取dd日期的'年',month(dd)是取月,day(dd)取日,cdate(),是規范日期格式dd=dateadd("d",dd,-1),下月的第一天減一天就是本月的最后一天日期i=day(dd)response.write i在asp中我們如果想知道當月有多少天，是沒有系統函數來計算的。那么如何計算當月的天數呢。我想了一個辦法，就是用兩個月的月初相減，那么得到的就是當月的天數。下面是我寫的函數：Function GetDays(tDate) dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1") ' 得到本月第一天 dt2 = DateAdd("m",1,dt1) ' 得到下個月第一天 GetDays=DateDiff("d",dt1,dt2) ' 得到兩個月的

在服務器上新建網站，在服務器用域名能訪問，但是外網訪問不了的解決辦法

2015/12/11 22:28:01

在服務器新建網站在服務器上用域名可以正常訪問網站在外網用域名訪問就不正常打不開ping時也正常，就是不能看到網頁錯誤原因：windows自帶的防火墻已開啟但是沒有添加80端口造成的解決辦法：1、開始---設置---控制面板---windows防火墻---例外（入站規則）---添加端口---名稱和端口號分別輸入80---確定（如果服務器環境已改為非80端口則添加對應端口號）2、有另一種情況除了使用以上方法外還要考慮到一個問題，那就是你的服務器或云主機提供商在整體網絡上設置了白名單機制，沒有在白名單里的域名外網也無法訪問到，此時需要你聯系服務商把域名添加進去解決問題。

httpd.ini中的RewriteRule、RewriteCond規則了解以有二級域名解析實例

2015/10/16 19:52:57

研究了半天，網上個視頻教程也沒有看了半天，看懂一點RewriteRule規則，和大家分享一下經驗：.htaccess 文件中url重定向部分的規則是如下這樣形式的：RewriteCond ￥%……&*（）RewriteRule *&……%……&*RewriteRule *&……%……&*RewriteCond ￥%……&*（）RewriteRule *&……%……&*RewriteRule *&……%……&*有的可能只有RewriteRule 組成的url重定向規則部分RewriteRule *&……%……&*RewriteRule *&……%……&*.........那么RewriteCond RewriteRule 兩個是什么含義呢。其實RewriteCond 和if判讀語句的作用很相似。當url地址匹配到其中一個RewriteCond 的

httpd.ini一些參數說明

2015/10/16 19:46:27

修改httpd.ini后請重啟IIS以下是必須內容,不用修改[ISAPI_Rewrite]CacheClockRate 3600RepeatLimit 32#上面三行不要改動,以下為規則設置RewriteRule /([0-9,a-z]*)/(\d+).html /$1/show.mobi?id=$2 [I]#文件內容結束附加說明一下設置規則時的格式：其他的參數一覽I (ignore case)不管大小寫強行指定字符匹配,這個FLAG影響RewriteRule指令和相應的RewriteCond 指令F (Forbidden)對客戶端做反應,停止REWRITING進程并且發送403錯誤,注意在這種情況下FORMATSTRING 是無用的并可以設置為任何非空字符串。L (last rule)不應用任何重寫規則在此停止重寫進程,使用這個FLAG以阻止當前被重寫的URI被后面的規則再次重寫N (Next iteration)強制REWRITINGENGINE調整規則目標并且從頭重啟規則檢查(所有修改將保存),重啟次數由RepeatLimit指定的值限制,如果這個數值超過N FLAG將被忽略NS

httpd.ini偽靜態網站分享到微信好友微信朋友圈鏈接打不開報404錯誤的解決辦法

2015/10/16 19:27:41

最近有客戶反映用百度分享等分享到QQ空間，完全正常的，但是分享網頁鏈接到微信朋友圈的時候，發現鏈接無法打開，提示無法找到該頁404錯誤，同樣分享到QQ、微博等鏈接能正常訪問，這樣的錯誤不應該是百度與騰訊的問題。仔細看了一下地址原來錯誤出在分享之后的網頁地址上，分享到QQ空間上的地址后面加了#號+數字字母，而分享到微信的是在后面加了?號+數字字母。以下是代碼比較分享到QQ空間：http://www.cmrd4.cn/about/index.htm#0-qzone-1-1476-d020d2d2ad1440分享給QQ好友：http://www.cmrd4.cn/about/index.htm#0-sqq-1-7608-9737f6f9e09dfabfee85分享到微信朋友圈：http://www.cmrd4.cn/about/index.htm?from=timeline&isappinstalled=0如果網站是使用了偽靜態的話，在后面加了?號+數字字母后就找不到，所以出錯了。動態與生成后的靜態頁面分享到微信好友、微信朋友圈時可以正常訪問但是利用httpd.ini做的偽靜態頁面分

windows8的iis7應用程序池標識問題

2015/10/5 21:13:57

如果出現以下錯誤：應用程序池 ×××的標識無效?？赡苁菫闃俗R指定的用戶名或密碼不正確，或者用戶不具有批登錄權限。如果不更正標識，則當應用程序池接收到它的第一個請求時，應用程序池將被禁用。如果是批登錄權限導致的此問題，則必須在授予權限之后更改 IIS 配置存儲中的標識，然后 Windows Process Activation Service (WAS)才可以重試登錄。如果在處理對應用程序池的第一個請求之后標識仍然無效，應用程序池將被禁用。數據字段包含錯誤號。需要在控制面板-》管理工具-》本地安全策略-》本地策略-》用戶權利指派-》做為批處理作業登錄添加用戶進去。 1. 打開 IIS 管理器。有關如何打開 IIS 管理器的信息，請參閱打開 IIS 管理器 (IIS 7)。2. 在“連接”窗格中，展開服務器節點，然后單擊“應用程序池”。3. 在“應用程序池”頁中，選擇要為其指定標識的應用程序池，然后單擊“操作”窗格中的“高級設置”。4. 對于“標識”屬性，單擊 ... 按鈕以打開“應用程序池標識”對話框。5. 如果您要使用內置帳戶，請選中“內置帳戶”選項，然后從列表中選擇

ASP讀取json并輸出

2015/9/20 11:01:26

<%Dim scriptCtrl ‘這個dim很重要一定要加，如果不加會輸出不正常，切記Function parseJSON(str)If Not IsObject(scriptCtrl) ThenSet scriptCtrl = Server.CreateObject("MSScriptControl.ScriptControl")scriptCtrl.Language = "JScript"scriptCtrl.AddCode "function ActiveXObject() {}" ′ 覆蓋 ActiveXObjectscriptCtrl.AddCode "function GetObject() {}" ′ 覆蓋 ActiveXObjectscriptCtrl.AddCode "Array.prototype.get = function(x) { return this[x];}; var result = null;"End If On Error Resume NextscriptCtrl.ExecuteStatement "result = " &a

ASP 格式化顯示時間為幾個月,幾天前,幾小時前,幾分鐘前,或幾秒前

2015/5/23 16:10:18

Function DateStringFromNow(Byval sTheDate)' 格式化顯示時間為幾個月,幾天前,幾小時前,幾分鐘前,或幾秒前 Dim iSeconds, iMinutes, iHours, iDays iSeconds = DateDiff("s", sTheDate, Now()) 'd/h/n/s iMinutes = Int(iSeconds/60) iHours = Int(iSeconds/3600) iDays = Int(iSeconds/86400) If iDays > 60 Then DateStringFromNow = sTheDate ElseIf iDays > 30 Then DateStringFromNow = "1個月

asp判斷是否是手機訪問

深山 — 2015/3/11 9:06:06

asp判斷瀏覽器是否是手機版的，如果是手機版，就跳轉相應的頁面<%qwbmmobilefeatures = "mini 9.5|vx1000|lge|m800|e860|u940|ux840|compal|wireless| mobi|ahong|lg380|lgku|lgu900|lg210|lg47|lg920|lg840|lg370|sam-r|mg50|s55|g83|t66|vx400|mk99|d615|d763|el370|sl900|mp500|samu3|samu4|vx10|xda_|samu5|samu6|samu7|samu9|a615|b832|m881|s920|n210|s700|c-810|_h797|mob-x|sk16d|848b|mowser|s580|r800|471x|v120|rim8|c500foma:|160x|x160|480x|x640|t503|w839|i250|sprint|w398samr810|m5252|c7100|mt126|x225|s5330|s820|htil-g1|fly v71|s302|-x113|no

asp利用正則檢查手機端的瀏覽器標識來確定是否是手機訪問如果是手機訪問就使用手機模板

深山 — 2015/3/11 9:03:55

asp利用正則檢查手機端的瀏覽器標識來確定是否是手機訪問如果是手機訪問就使用手機模板 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%Function regexpmobiletest(patrn, strng) Dim regEx, retVal '建立變量 Set regEx=New RegExp '建立正則表達式 regEx.Pattern=patrn '設置模式 regEx.IgnoreCase=True '設置是否區分大小寫，true為不區分 retVal=regEx.Test(strng)'執行搜索測試 regexpmobiletest=retValEnd Function function webmobilereturn(wmleis) dim mobile_browser,user_agent, accept,mobile_browser_type mobile_browser = "0" user_agent=

IIS上傳文件大小解處限制的方法

2015/1/20 9:42:00

在 Windows7(iis7.5)、Win2008(iis 7.0)和Win2003(iis 6.0) 中，默認設置是特別嚴格和安全的，這樣可以最大限度地減少因以前太寬松的超時和限制而造成的攻擊。指定 ASP 請求的實體主體中允許大小為 200,000 (IIS6為204,800) 個字節，在 iis 6.0 之前的版本中，例如：Windows XP(IIS 5.1)，沒有限制。這就造成了文件上傳不能超過200k，而事實上是提交數據不能超過200k,你可以發一個很長的帖子試試，也會出現這個錯誤。IIS7.0的修改方法如下： 1、打開IIS管理器→ 雙擊“IIS”中的“ASP”→ 打開“配置 ASP 應該程序的屬性”→ 展開“限制屬性”；2、修改“最大請求實體主體限制”的值，默認值為200000（即不到200KB）；3、把它修改為你想修改的大小，如：52000000（50MB）；4、修改完成點擊“應用”OK！附：iis7 上傳大文件限制的真正解決辦法1、打開“Internet 信息服務(IIS)管理器”；2、關閉IIS服務；3、雙擊“Default Web Sit

asp利用XMLHTTP獲取xml數據方法

深山行者 — 2014/9/17 21:59:29

url = "http://www.cmrd4.cn/book/qwbm_book_update.xml"Set http=Server.CreateObject("Microsoft.XMLHTTP") http.Open "GET",url,False http.send Set xml=Server.CreateObject("Microsoft.XMLDOM") xml.Async=true xml.ValidateOnParse=False xml.Load(http.ResponseXML) If xml.ReadyState>2 Then set res = xml.selectSingleNode("http://qwbmbook") book_up_open = res.getAttribute("uopen") '是否有更新內容