Kite's Blog 技术文章版

【摘 要】在文章发布系统中采用服务器端生成静态页面的方法可以有效减轻服务器的负担，特别是对大流量网站非常有效。

在文章发布系统中采用服务器端生成静态页面的方法可以有效减轻服务器的负担，特别是对大流量网站非常有效。但是既然生成的是静态页面，生成时是什么样，显示就是什么样了，对于文章常见文章被阅读次数怎么显示呢？

　　经考虑，可用如下方案解决：

　　生成静态页面时会产生一个文章的id存到数据库中，那么我们在制作文章的模板的时候就可以在这个文章的id上做文章，文章模板包含以下语句：

<SCRIPT src="counter.asp?articleId=<%=#articleId#%>"></SCRIPT >
　　说明：
　　在利用模板生成文章时，把"#articleId#"进行模式匹配，替换为新添加的文章的id号。

　　counter.asp 文件为实现记数的asp文件
...

阅读全文

【摘 要】本文详细介绍如何用ASP动态生成JavaScript的表单验证代码。

　　
　　表单的验证是开发WEB应用程序中常遇到的一关。有时候我们必须保证表单的某些项必须填写、必须为数字、必须是指定的位数等等，这时候就要用到表单验证了，一般我们常用的表单验证有２种方式：

１、编写JavaScript或VBScript的表单验证函数，在客户端进行验证；
２、在表单提交后，使用ASP的方法Request.Form获取表单的输入值进行判断，然后返回结果，这是在服务端进行验证；

　　这２种方式都有其优缺点，比如第１种方式速度比较快，而且通常使用警告框的方式，用户能够很快的根据提示完成表单的填写，但是缺点就是用户的浏览器必须是支持JavaScript脚本的，再不然如果他关闭了JavaScript，那就!@#$%&^*（小田已经倒在地上了^_^）；而第２种方式的兼容性比较好，但是缺点是...

阅读全文

49行代码,三个文件
Asp文件：Code.Asp
数据文件：body.Fix , Head.Fix

用法：<img src="code.asp">

<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
dim zNum,i,j
dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
dim zimg(4),NStr
...

阅读全文

1.如何用Asp判断你的网站的虚拟物理路径

答：使用Mappath方法
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
< /font >< /p >

2.我如何知道使用者所用的浏览器？

答：使用the Request object方法
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
...

阅读全文

随着网站访问量的加大，每次从数据库读取都是以效率作为代价的，很多用ACCESS作数据库的更会深有体会，静态页加在搜索时，也会被优先考虑。互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面，这样无形间就加大了数据库。将现有的ASP页直接生成静态页，将会节省很多。

　　下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面，分别生成ndex1.htm,index2.htm,index3.htm存在根目录下面：
Code:

<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
For i=1 To 3
Html_Temp = Html_Temp&"<LI>"
Item_Classid = i
...

阅读全文

Microsoft VBScript 编译器错误 错误 '800a03f6'
ODBC 驱动程序不支持所需的属性。
-------------------------------------------
原因：可能是因为没有sql语句里出现的字段名，一般为字段名或sql关键字书写错误。也有可能是sql所要打开的表已经被独占打开。
解决方法：检查sql语句里出现的每个字段名，和每个关键字



====================================================Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
机器 'HDZC-3JQSKBWO02' 上的用户 'Admin' 以独占方式的锁定数据表'order_detail'。
-------------...

阅读全文

【摘 要】先简单说一下MP3的ID3 标记，因为主要是操作这个玩意。 　　
大家有碰到过要想取一字符串里的某些值而无从下手？有没有觉得看书或教材对split的写法糊里糊涂……如果有此疑问的话，请看下面我对例子的解释，相信您会对这个有一定的了解。

　　我先介绍一下Split函数的用法:

返回值数组 = Split("字符串","分割符")

　　假设变量strURL保存着URL值，如strURL = "ftp://username:password@server";，这是我们在ＩＥ中登录到FTP上时的ＵＲＬ形式，如果我们想把其中的username和password取出来的话，该怎么办呢？当然解决的方法有许多，在这里我们只介绍用Split来解决的方法。首先，我们找出分割符。我们发现在这个字符串中，username和password之间有个冒号把它们隔开了，所以我们就把这个冒号...

阅读全文

<%
''获取访问者的地址
ip=Request.ServerVariables("REMOTE_ADDR")

''允许的IP地址段为10.0.0.0～10.68.63.255
allowip1="10.0.0.0"
allowip2="10.68.10.71"
response.write checkip(ip,allowip1,allowip2)
function checkip(ip,allowip1,allowip2)
dim check(4)
checkip=false
ipstr=split(ip,".")
allow1=split(allowip1,".")
allow2=split(allowip2,".")
if cint(allow1(0))>cint(allow2(0)) then ''判断IP地址段是否合法
response.write "禁止访问"
...

阅读全文