用ASP实现搜索并分页是我见大多数程序员和大多数网站出现了不能正常分页的问题，搜索出来的结果点击下一页数据又重定向为初始的结果。是什么原因倒致这个问题呢？
这个问题也是在我在校正在学习ASP的时候练习实例中遇到的问题，出现这个问题后，反复的调试反复的检查代码，看来看去代码没有不报错也无误。左思右想结果想到了其中一段代码的表达式（防注入代码省略）：
if trim(request.form("search"))<>"" then
seach=trim(request.form("search"))
sql="select * from pro where proname like '%" & search & "'"
这个表达式判断了在用户输入文本点击搜索后执行查询search变量的关键字记录。问题出在这里。
原因：当用户输入点击下一页后，以上代码就不成立，并且点击下一页关键字丢失。
解决办法2个步骤：
1、以上代码改为
if trim(request("search"))<>"" then
2、在分页的链接中如下代码：
pro.asp?page=<%=page%>&search=<%=search%>
这样request对象就不只限于� ......
一大早起来装IIS。现在终于装好了。十分感谢以下的博文，特转过来分享 :)
转至：http://blog.sina.com.cn/s/blog_50070c4c0100bkq6.html
每每装IIS，总会碰到这样那样的问题，从目前反应情况来看，IIS安装后可浏览HTML静态文件，却无法浏览asp为后缀的动态页面。
通过几次调试后，找到以下几种方法，这些方法都参考网络各个介绍，并通过了本人的测试。希望能给大家减少IIS安装故障带来的烦恼。
一般来说，对于此故障通常都发生在这么一种情况，即windows xp ghost版本。很容易理解，ghost制作方通常为了给系统减肥，把普通用户不需要的服务给停止了，结果导致当我们需要使用一些不常用的服务时，却怎么也不能正常。所以，对大多数初学者来说，如果你想使用IIS，那么你使用安装版的操作系统比较方便。
对于asp文件无法打开，html却能正常浏览（请注意此特征，不要与其他错误混淆），你可以考虑以下两种情况。
一. 迅雷惹的祸。
如果迅雷打开了，IIS就会失效。因为迅雷会占用系统80端口，而IIS的默认端口就是80，所以，有人当着你家门口，你当然进不去了，事情好� ......
今天为了以后的方便，我写了一些常用的用户控件。在写login控件时，有三个按钮，分别是登陆、重置、注册。我想中图片作为他们的背景来显示它们，但问题是asp:Button并没有提供background-image的属性。于是我就在网上搜了一下，有人提出用CssClass属性，方案是在css文件进行background-image的定义，如登陆.loginButton { background-image: url(image/login.gif);} 。但是我在调试时发现，在IE中效果可以呈现，但在Maxthon中却没有预期的效果。于是，我先在W3C的文件描述中进行改变，尝试了几次还是不行，后来，我干脆把 background-image改成background，测试了一下居然OK。又测试了几次，依然不爽。 ......
经过本人将ASP运行速度内存占用大小放大到200M的测试
关于定义变量：
1、定义变量，尽量不要定义全局变量，私有变量在运行速度以及空间占用上面比公共变量速度快，以及赋值上面速度问题（下面介绍）
2、变量赋值：
给变量赋值尽量一次赋完，比如：
Dim str
str="1"
str=str&"2"
str=str&"3"
str=str&"4"
str=str*"5"
应该修改为：
Dim str
str="12345"
解释：在运行速度上，很明白的看出来第二个比第一个快，但是在内存占用上呢？经过本人在将变量放大到200M之后发现，变量第二次累加值，占用内存以及运行速度是第一次的三倍以上，也就是说，你把一个字符串拆分的越多，运行速度以及内存占用将大大增加。
变量需要重复赋值问题比如：
Dim str
str="123"
str="456"
应该修改为：
Dim str
str="123"
'下面任选其一
str="" 或者 str=Empty 或者 str=Null 或者 str=vbNullString 或者 Set str=Nothing
'上面任选其一
str="456"
解释：这个一般人都会按照第一个方法写，第一简单；第二代码行数少看起来清析点。在本人200M变量大小赋值之后发现，变量第一次赋值后，如果 ......
<%@ Language=VBScript CODEPAGE=65001%>
<% Response.Buffer=True %>
<%
'Collaboration Data Objects, version 1.2.1(CDO)
'http://www.microsoft.com/downloads/details.aspx?FamilyId=2714320D-C997-4DE1-986F-24F081725D36&displaylang=en
'-----------------第一步 创建对象 cdosys.dll cdoex.dll-------------
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta content="Geovin Du" name="Author">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>™Du Computer information Technology Co,.Ltd® is engaged in applied software design, development and
service.We provide system solution to fund flow, information flow, human
resource flow, material flow and control flow.勝� ......
<%
'以下部分是验证提交的page是否为合法的参数
'这部分最好判断一下提交的参数是否为数值字符
dim page
page=Trim(request("page"))
If page="" Then
page=1
Elseif CInt(page)<=0 then
page=1
else
page=CInt(page)
End If
'进行查询，取出要显示的记录
str=rs1("content")
'把出取来的记录放入数组
dim strtmp
if(Instr(str,"</p>")>0) then
strtmp=Split((str),"</P>")
else
strtmp=Split((str),"<BR>")
end if
'取出要显示的记录，同时得到页数
Dim n,tmp,i,j,tt
n=1000
i=0
j=0
Do While i<=ubound(strtmp)
tmp=strtmp(i)
tt=true
Do While tt
If i>=ubound(strtmp) then
tt=false
j=j+1
elseif Len(tmp)>=n Then
tt=false
j=j+1
ElseIf Len(tmp)+Len(strtmp(i+1))>=n Then
tt=false
j=j+1
Else
&nbs ......
最新文章 : asp