黄色国产小视频,欧美成人黑人猛交,欧美一级免费播放

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

2023/2/22 10:21:11

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

通過阿里云服務(wù)接口獲得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內(nèi)容 Function geturl_diy(url,d_biaoqian,xml2) dim http set http=server.createobject("Msxml2.ServerXMLHTTP")

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

2022/6/18 8:55:51

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

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加密解密函數(shù)

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無限級調(diào)用分類顯示

2020/11/20 21:47:17

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

實現(xiàn)iis6與iis7環(huán)境下支持mp4視頻隨意拖動、預(yù)覽播放、邊下載邊播放

2019/12/17 14:22:25

前幾天，一客戶需要在IIS環(huán)境下實現(xiàn)MP4視頻可以隨意拖動觀看，邊下載邊播放。一看這要求，IIS本身是無法實現(xiàn)，想著應(yīng)該需要用插件，于是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、下載對應(yīng)版本的mod_h264_streaming，把mod_h264_streaming.dll解壓到一個目錄，如：E:\h264\mod_h264_streaming.dll 　　2、請配置該文件所在目錄權(quán)限為：Administrator/完全控制；SYSTEM/完全控制；USER/讀取和運行（這個權(quán)限很重要，不然IIS無法加載這個組

做好的網(wǎng)站把http改成https申請SSL域名證書

2019/10/9 11:04:17

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

純asp根據(jù)當(dāng)前日期計算出當(dāng)前年份的屬相

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

以下是asp根據(jù)當(dāng)前日期的年份計算出相應(yīng)年份的屬相，以上是演示效果 <% 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 主外鍵關(guān)系 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實現(xiàn)獲得當(dāng)前文章的上一篇信息與下一篇信息功能及代碼

2019/4/16 14:40:46

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

asp導(dǎo)出內(nèi)容到excel表并自定義命名后下載（非打開）

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

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

'禁止站外提交頁面和數(shù)據(jù)

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

<% call waizhan_addform() '禁止站外提交頁面和數(shù)據(jù) 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")) '獲取當(dāng)前頁面所在服務(wù)器域名 'response.write("前一個頁面的全URL：" & this_page_url & "
") 'response.write("當(dāng)前頁面所在服務(wù)器IP：" & this_page_yuming & "
") &n

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

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

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

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

2019/4/15 22:32:46

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

asp計算頁面執(zhí)行時間顯示到毫秒

2019/4/15 22:07:57

當(dāng)前asp頁面執(zhí)行完畢所用的時間操作如下： <% 'timer函數(shù)：返回午夜12時以后已經(jīng)過去的秒數(shù) dim page_start_time page_start_time = timer() %> 以上代碼一定要在頁面頂部加上在網(wǎng)頁的底部位置再獲取當(dāng)前過去的秒數(shù)，并減去開始的秒數(shù)，且格式化輸出。頁面執(zhí)行時間：<%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數(shù)據(jù)庫中，在設(shè)計數(shù)據(jù)庫的時候，會對應(yīng)的字段添加相應(yīng)的字段開發(fā)說明但是上線之后我們就要刪除這些開發(fā)字段說明，需要批量的刪除（PS：這些開發(fā)字段說明可以不刪除，也可以刪除）單獨刪除某個字段“說明”屬性用： 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數(shù)據(jù)庫的函數(shù)庫

2018/6/21 17:35:47

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

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

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

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

asp利用sql操作數(shù)據(jù)表、數(shù)據(jù)庫的一些方法

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

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

rs操作數(shù)據(jù)表記錄集對象的方法

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

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

[轉(zhuǎn)載]中國行政區(qū)劃數(shù)據(jù)（省市區(qū)街道）

2018/5/14 10:48:03

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

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

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

通過身份證識別生日和性別、年齡 <% '位數(shù)判斷 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網(wǎng)站打開特別卡提示：msxml3.dll 錯誤 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解決辦法

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

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

asp中Request.ServerVariables能獲取的信息整理總結(jié)

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

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

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

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

有時候在制作一個查看瀏覽記錄的時候的時候，因為用戶不是按照順序去查看的，所以需要對SQL語句進行一些處理 sql語句中怎么按照in語句里的id原有的順序進行排序輸出可以做成瀏覽記錄、查看、觀看記錄，視頻瀏覽記錄、商品瀏覽記錄有時候我們需要按照in條件里的id順序輸出結(jié)果，可sql語句在不加order by的時候是按照asc排序的，下邊的sql解決按照in條件順序的id輸出查詢結(jié)果 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 表

通過設(shè)置iis的進程池讓網(wǎng)站的并發(fā)數(shù)，性能提升幾個檔次

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

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

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

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

<%'asp取得用戶的真實IP'以下是網(wǎng)上找到的說明'1. Request.ServerVariables("HTTP_CLIENT_IP") 有，只是未成標準，不一定服務(wù)器都實現(xiàn)了。'2. Request.ServerVariables("HTTP_X_FORWARDED_FOR") 是有標準定義，用來識別經(jīng)過HTTP代理后的客戶端IP地址，格式：clientip,proxy1,proxy2'3. Request.ServerVariables("REMOTE_ADDR") 是可靠的，它是最后一個跟你的服務(wù)器握手的IP，可能是用戶的代理服務(wù)器，也可能是自己的反向代理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檢查網(wǎng)站能否打開

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

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

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

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%'asp利用sina提供的ip庫端口來獲得當(dāng)前IP所有的地區(qū)，所在國，所在省，所在市，在線解析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 "當(dāng)前IP：" & this_ip & "____
"response.write "當(dāng)前解析地址：" & get_ip_url & "____
"response.write "獲得的json內(nèi)容：" & 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 %> 加透明圖片水印，實際上就是將兩個圖合并，最關(guān)鍵的就是這一句： Jpeg.Canvas.DrawImage 0,Jpeg.Origina

ASP連接各種數(shù)據(jù)庫的方法

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

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

asp獲得系統(tǒng)Unix時間戳與將Unix時間戳轉(zhuǎn)為正常日期

深山工作室 — 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時間戳轉(zhuǎn)為正常日期response.write "

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

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

2016/8/2 21:57:20

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

access數(shù)據(jù)庫做的網(wǎng)站出現(xiàn).ldb不能刪除超過2KB之后就會網(wǎng)站訪問不了數(shù)據(jù)庫，提示數(shù)據(jù)庫不存在

2016/6/16 11:49:35

.ldb的文件是ACCESS讀寫的時候的臨時文件,只要讀寫ACCESS文件就會生成.1. 排除空間問題二.訪問數(shù)據(jù)庫的程序優(yōu)化主要都是因為對數(shù)據(jù)庫存取完后，沒有及時釋放記錄集和斷開數(shù)據(jù)庫連接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 "服務(wù)器正在維護，請稍后再試。"Response.EndEnd IfSub CloseConn()'以下是斷開數(shù)據(jù)庫連接語句conn.closeset conn=

asp中最難發(fā)現(xiàn)的錯誤由最簡單的程序引起

2016/6/7 15:48:25

這是一個非常簡單的asp程序，就是將兩個字符串連接后輸出，這已經(jīng)是asp開發(fā)過程中最簡單的程序了，如下： <% ca="1" ha="2" response.write ca&ha %> 你保存成一個asp文件，然后運行一下，看看結(jié)果是什么？以下是運行的錯誤結(jié)果 ========================================== 錯誤類型： Microsoft VBScript 編譯器錯誤 (0x800A0401) 語句未結(jié)束 /d.asp, line 4, column 17 response.write ca&ha ----------------^ ========================================== 這也太簡單了，你可能想都不用想，直接回答運行結(jié)果是12。沒有想到結(jié)果是錯誤的提示語句未結(jié)束因為這段程序?qū)嵲谑翘唵瘟耍伊薔遍都找不出來這段程序有錯誤。什么原因?qū)е逻@段程序有錯了？網(wǎng)上找了一下，找到原因了："asp中

Asp得到當(dāng)月天數(shù)的函數(shù)方法

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(),是規(guī)范日期格式dd=dateadd("d",dd,-1),下月的第一天減一天就是本月的最后一天日期i=day(dd)response.write i在asp中我們?nèi)绻胫喇?dāng)月有多少天，是沒有系統(tǒng)函數(shù)來計算的。那么如何計算當(dāng)月的天數(shù)呢。我想了一個辦法，就是用兩個月的月初相減，那么得到的就是當(dāng)月的天數(shù)。下面是我寫的函數(shù)：Function GetDays(tDate) dt1 = CDate(Year(tDate) & "-" & Month(tDate) & "-1") ' 得到本月第一天 dt2 = DateAdd("m",1,dt1) ' 得到下個月第一天 GetDays=DateDiff("d",dt1,dt2) ' 得到兩個月的

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

2015/12/11 22:28:01

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

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

2015/10/16 19:52:57

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

httpd.ini一些參數(shù)說明

2015/10/16 19:46:27

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

httpd.ini偽靜態(tài)網(wǎng)站分享到微信好友微信朋友圈鏈接打不開報404錯誤的解決辦法

2015/10/16 19:27:41

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

windows8的iis7應(yīng)用程序池標識問題

2015/10/5 21:13:57

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

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判斷瀏覽器是否是手機版的，如果是手機版，就跳轉(zhuǎn)相應(yīng)的頁面<%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 '設(shè)置模式 regEx.IgnoreCase=True '設(shè)置是否區(qū)分大小寫，true為不區(qū)分 retVal=regEx.Test(strng)'執(zhí)行搜索測試 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) 中，默認設(shè)置是特別嚴格和安全的，這樣可以最大限度地減少因以前太寬松的超時和限制而造成的攻擊。指定 ASP 請求的實體主體中允許大小為 200,000 (IIS6為204,800) 個字節(jié)，在 iis 6.0 之前的版本中，例如：Windows XP(IIS 5.1)，沒有限制。這就造成了文件上傳不能超過200k，而事實上是提交數(shù)據(jù)不能超過200k,你可以發(fā)一個很長的帖子試試，也會出現(xiàn)這個錯誤。IIS7.0的修改方法如下： 1、打開IIS管理器→ 雙擊“IIS”中的“ASP”→ 打開“配置 ASP 應(yīng)該程序的屬性”→ 展開“限制屬性”；2、修改“最大請求實體主體限制”的值，默認值為200000（即不到200KB）；3、把它修改為你想修改的大小，如：52000000（50MB）；4、修改完成點擊“應(yīng)用”O(jiān)K！附：iis7 上傳大文件限制的真正解決辦法1、打開“Internet 信息服務(wù)(IIS)管理器”；2、關(guān)閉IIS服務(wù)；3、雙擊“Default Web Sit

asp利用XMLHTTP獲取xml數(shù)據(jù)方法

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

url = "http://m.zkuvoeo.com/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") '是否有更新內(nèi)容