用ACCESS打开你的数据库,选择菜单中的[工具]->[选项]->[高级] 　　更改[默认打开模式]为[共享],更改[默认记录锁定]为[不锁定]. 　　如仍然不行将下面的选项[使用记录级锁定]也取消. 　　确定后保存,然后打开,修复/压缩数据库. 　　删除目录中的LDB文件(如无法删除,先结束相关进程或重新启动计算机删除即可)

ACCESS有个BUG，那就是在使用 like 搜索时如果遇到日文就会出现“内存溢出”的问题，提示“80040e14/内存溢出”。 把以下代码插入到asp页面即可解决这个问题：

使用过godaddy.com空间的朋友都知道，当发布文章时，和国内时间相差14个小时。

folder="www.yuzhiguo.com"'需要创建的文件夹名称 Call createfolder(folder) Function createfolder(folder) set fs=createobject("scripting.filesystemobject") url=server.mappath(folder) if Not fs.folderexists(url) then fs.createfolder(url) Response.write url&"创建成功！<br />" else Response.write url&"存在！<br />" end if End Function

在做网站产品展示页面时，一般会用到缩略图，好处当然是直观醒目让人一目了然，打开产品列表也速度快。点击进入然后看到大图及具体的介绍。 很多网站都是采用下面这2种来达到缩略图效果，但这不是最好的选择。 1，如果后台只传一张大图，显示缩略图时只是将大图固定宽度和高度，这样不但造成缩略图变形，而且使得页面访问速度缓慢。 2，如果后台每次上传时，都上传两张图片，一张大图，一张缩略图。这样的话，没有1中的问题，但是给后台人员造成很大麻烦。因为后台人员并不一定知道处理生成缩略图；即使知道并能快速处理，也浪费掉一些时间。

在网页制作中，有些执行错误，使不能让浏览者看到的，比如链接数据库的时候出错，出错提示可能暴露数据库路径，这样很不安全，使用下面的代码就会忽略掉错误提示，而是自己设定的提示信息。 <% on error resume next '执行过程 .... if err.number <> 0 then resonse.redirect "错误页面.htm" 'Response.Write "数据库连接出错,请联系管理员解决此问题!" end if %>

（中国大陆移动134,135,136,137,138,139,150,151,157,158,159号码段、中国联通的130,131,132,133,153,155,156号码段和中国电信3G手机号码段188，中国网通3G手机号码189号码段） 1、 前3位号码必须是130、131、132、133、134、135、136、137、138、139、150、151、153、156、157、158、159、188、189其中之一，否则提示“不合法的手机号码” ； 2、 必须是11位的数字号码；

我们要验证身份证号是否正确，就得先了解身份证号的含意。 身份证号都代表什么意思？ 1、号码的结构 公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。

'过滤SQL非法字符并格式化html代码 function Replace_Text(fString) if isnull(fString) then Replace_Text="" exit function else fString=trim(fString) fString=replace(fString,"'","''") fString=replace(fString,";","；") fString=replace(fString,"--","—") fString=server.htmlencode(fString) Replace_Text=fString end if end function

<% Response.Buffer=True Db = "D:\hosting\wwwroot\yuzhiguo_com_ufhost\database\data_w#eb_site_2007.mdb" Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&db SqlNowString="Now()" SqlChar="'" On Error Resume Next Set Conn=Server.CreateObject("ADODB.Connection") Conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错,请联系管理员解决此问题!" Response.End End If On Error GoTo 0 %>