一本色道久久综合亚洲精品婷婷,日本一区二区在线视频,欧美大片专区

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ù)器默認(rèn)用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ū)標(biāo)識（LCID）。LCID是唯一地標(biāo)識地區(qū)的一個國際標(biāo)準(zhǔn)縮寫，例如，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地址詳細(xì)信息

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 約束默認(rèn) 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],[標(biāo)題] 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],[標(biāo)題] 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、任何類型的文件都是直接下載，不是在瀏覽器打開，并且自定義另存為對話框里的默認(rèn)文件名。完整代碼如下：<%dim actionaction=lcase(trim(request.querystring("action")))if action="down" then '下載文件 '任何類型的文件都是直接下載，不是在瀏覽器打開，且自定義另存為對話框里的默認(rèn)文件名。 call gw_downfile(trim(request.querystring("f")),"文章列表.xls") '參數(shù)：服務(wù)器端文件路徑及文件名，客戶端下載時的默認(rèn)文件名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ù)返回表達(dá)式，此表達(dá)式已被格式化為尾隨有 % 符號的百分比（乘以 100 ）。FormatPercent(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])FormatPercent 函數(shù)的語法有以下參數(shù)：參數(shù)Expression必選項。要被格式化的表達(dá)式。NumDigitsAfterDecimal可選項。指示小數(shù)點右側(cè)顯示位數(shù)的數(shù)值。默認(rèn)值為 -1，指示使用的是計算機的區(qū)域設(shè)置。IncludeLeadingDigit可選項。三態(tài)常數(shù)，指示是否顯示小數(shù)值小數(shù)點前面的零。有關(guān)數(shù)值，請參閱“設(shè)置”部分。UseParensForNegativeNumbers可選項。三態(tài)常數(shù)，指示是否將負(fù)值置于括號中。有關(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") 有，只是未成標(biāo)準(zhǔn)，不一定服務(wù)器都實現(xiàn)了。'2. Request.ServerVariables("HTTP_X_FORWARDED_FOR") 是有標(biāo)準(zhǔn)定義，用來識別經(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://www.cmrd4.cn/", 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)建的標(biāo)進行了更改或者啟用了‘阻止保存要求重新創(chuàng)建表的更改’” 解決方案

2016/8/2 21:57:20

近日在使用sql2008的過程中，要對已經(jīng)創(chuàng)建完成的表結(jié)構(gòu)進行修改，卻一直提示彈出如下提示：“不允許保存更改。您所做的更改要求刪除并重新創(chuàng)建以下表。您對無法重新創(chuàng)建的標(biāo)進行了更改或者啟用了“阻止保存要求重新創(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ū)嵲谑翘唵瘟?，找了N遍都找不出來這段程序有錯誤。什么原因?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ī)則目標(biāo)并且從頭重啟規(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)該是百度與騰訊的問題。仔細(xì)看了一下地址原來錯誤出在分享之后的網(wǎng)頁地址上，分享到QQ空間上的地址后面加了#號+數(shù)字字母，而分享到微信的是在后面加了?號+數(shù)字字母。以下是代碼比較分享到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如果網(wǎng)站是使用了偽靜態(tài)的話，在后面加了?號+數(shù)字字母后就找不到，所以出錯了。動態(tài)與生成后的靜態(tài)頁面分享到微信好友、微信朋友圈時可以正常訪問但是利用httpd.ini做的偽靜態(tài)頁面分

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

2015/10/5 21:13:57

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

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

asp利用正則檢查手機端的瀏覽器標(biāo)識來確定是否是手機訪問如果是手機訪問就使用手機模板 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%Function regexpmobiletest(patrn, strng) Dim regEx, retVal '建立變量 Set regEx=New RegExp '建立正則表達(dá)式 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) 中，默認(rèn)設(shè)置是特別嚴(yán)格和安全的，這樣可以最大限度地減少因以前太寬松的超時和限制而造成的攻擊。指定 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、修改“最大請求實體主體限制”的值，默認(rèn)值為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://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") '是否有更新內(nèi)容