深山工作室 https://www.qwbm.com【ASP】

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.qwbm.com/", 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.qwbm.com/about/index.htm#0-qzone-1-1476-d020d2d2ad1440分享给QQ好友：http://www.qwbm.com/about/index.htm#0-sqq-1-7608-9737f6f9e09dfabfee85分享到微信朋友圈：http://www.qwbm.com/about/index.htm?from=timeline&isappinstalled=0如果网站是使用了伪静态的话，在后面加了?号+数字字母后就找不到，所以出错了。动态与生成后的静态页面分享到微信好友、微信朋友圈时可以正常访问但是利用httpd.ini做的伪静态页面分

windows8的iis7应用程序池标识问题

2015/10/5 21:13:57

如果出现以下错误：应用程序池 ×××的标识无效。可能是为标识指定的用户名或密码不正确，或者用户不具有批登录权限。如果不更正标识，则当应用程序池接收到它的第一个请求时，应用程序池将被禁用。如果是批登录权限导致的此问题，则必须在授予权限之后更改 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.qwbm.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("//qwbmbook") book_up_open = res.getAttribute("uopen") '是否有更新内容