高手帮分析下代码asp
<script language=javascript src=include/pic2.js></script>
<!--#include file="include/#888.asp"-->
<%
call aspsql()
Page=request("page")
Keywords=trim(request("keywords"))
if keywords="" and request.cookies("buyok")("search")="" then response.redirect "search_more.asp"
if Keywords<>"" then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from bkey where keywords='"&keywords&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("num")=rs("num")+1
rs("keydate")=now()
else
rs.addnew
rs("keywords")=keywords
rs("keydate")=now()
end if
rs.update
rs.close
set rs=nothing
title="搜索 <font color=red>"&Keywords&"</font> 商品"
sqlprod="select * from bproduc where online=true and (ProdName like '%"&keywords&"%' or ProdDisc like '%"&keywords&"%') order by AddDate desc"
else '高级搜索
title="搜索结果"
sqlprod=request.cookies("buyok")("search")
end if
%>
<html><head>
<title>搜索结果-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<LINK href="list/newhead.css" type=text/css rel=stylesheet>
<style type=text/css>
.pic1{MARGIN-TOP: -135px;MARGIN-left:0px}
.pic2{padding-top:6px}
</style>
</head>
<center>
<!--#include file="top.asp"-->
<!--#include file="tree.asp"-->
<!--#include file="down.asp"-->
</center>
</body>
</html>
<%
conn.close
set conn=nothing
%>
javascropt的格式
<!--#include file="include/#888.asp"-->
包含#888.ASP文件
<%
call aspsql()调用#888中的aspsql函数
Page=request("page")-获取page的值等于page输入框的值
Keywords=trim(request("keywords"))-同上
if keywords="" and request.cookies("buyok")("search")="" then response.redirect "search_more.asp"-if语句如果KEYWORDS和COOKIES中的BUYOK,SEARCH都等于空 那么重定向search_more。asp
if Keywords<>"" then如果KEYWORDS不等于空那么
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from bkey where keywords='"&keywords&"'"
rs.open sql,conn,1,3连接数据库bkey条件是定义的keywords等于数据库keywords中的字段的对应的信息
if not (rs.eof and rs.bof) then如果没有到最前和最后一条那么
rs("num")=rs("num")+1为num自动加1
rs("keydate")=now()keydate=现在时间
else否则
rs.addnew将KEYWORDS和现在时间分别添加到keywords和keydate中
rs("keywords")=keywords
rs("keydate")=now()
end if-if语句结束
rs.update更新数据库
rs.close
set rs=nothing关闭数据库
title="搜索 <font color=red>"&Keywords&"</font> 商品"-网页标题
sqlprod="select * from bproduc where online=true and (ProdName like '%"&keywords&"%' or ProdDisc like '%"&keywords&"%') order by AddDate desc"打开数据库bproduc按adddate倒叙排列条件是online=true并且pordname类似于keywords或者proddisc类似于keywords
else '高级搜索-否则
title="搜索结果"标题为搜索结果
sqlprod=request.cookies("buyok")("search")想COOKIES中写入这两个字段
end if
结束IF语句
%>
一下应该不用解释了把 HTML语言 有的地方解释的不好 见谅 但大致差不多 我也刚学
<html><head>
<title>搜索结果-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<LINK href="list/newhead.css" type=text/css rel=stylesheet>
<style type=text/css>
.pic1{MARGIN-TOP: -135px;MARGIN-left:0px}
.pic2{padding-top:6px}
</style>
</head>
<center>
<!--#include file="top.asp"-->
<!--#include file="tree.asp"-->
<!--#include file="down.asp"-->
</center>
</body>
</html>
<%
conn.close
set conn=nothing
%>
ASP高手来帮我看看代码
这段代码定义了两个数组 num 和 sor，两者都包含20个元素。它还包含一个循环，用于填充 num 和 sor 数组。循环从 i=1 进行，直到 i=20。在循环内部，使用 is 来获取输入值，并将这些值分别存储在 num 和 sor 数组中的相应位置。循环结束后，使用 response.Write 函数输出 num 数组的第一个元素...
ASP大虾请进,帮忙看下以下代码什么意思。谢谢
End Function 这是一个定义转换字符函数，但是我不懂得代码具体含义 请ASP高手帮忙解释一下，最好能逐行解释，谢谢 2.Function GetOrderNo(dDate)GetOrderNo = RIGHT("0000"+Trim(Year(dDate)),4)+RIGHT("00"+Trim(Month(dDate)),2)+RIGHT("00"+Trim(Day(dDate)),2)+RIGHT("00" + Trim...
请ASP高手帮忙看段代码
<%If Page=1 then%>上一页<%Else%> <a href="?Page=<%=page-1%>" style="color:#000000;">上一页<%End If%> <%If Rs.Pagecount<page+1 Then%> 下一页<%Else%> <a href="?page=<%=Page+1%>" style="color:#000000;">下一页<%End If%> <%If Rs.Pagecount<page+1 Th...
急求:哪位高手帮我解释下面的一段ASP程序是什么意思!
'初始化变量 stats="首页"dim founderr,errmsg founderr=false errmsg=""'如果参数page值不为空 if request("page")<>"" then if not isInteger(request("page")) then '如果参数page不是整数 founderr=true '错误标志为真 errmsg=errmsg+""+"非法的日记id参数。" '出错信息 end if end if...
ASP 高手快来帮小弟翻译一下简短的代码 速度啊 急!!
< 1.Randomize 2FreeMember=Int((999999 * Rnd) + 1)3Response.Write FreeMember > 1.随机数发生器,randomize表示用时间做种子，时间不会后退，因此保证不重复 2.rnd 产生0-1的随机小数。将1－1000000的值赋给变量FreeMember 3.输出变量FreeMember。
请高手帮忙解释一下这句ASP代码!
通常这种情况是在你使用了多文本编辑器 当你编辑了内容，存入数据库的不是你所看到的文字，实际上是一堆UBB编码，这时，用到的就是UBBCode(request.Form("ncont") ，意思就是把你提交的数据转换成UBB编码 而在页面读取数据时，需要转换成HTML编码，用到的就是HTMLcode（）...
高分:请帮我检查一下这段asp代码,看看该如何修改
1、确定你的表名和字段名是否和原表设置的一致；2、打开表的设计视图，比对2个表相应字段的数据类型是否一致（包括数据类型下的常规选项是否一致）程序文件本身没有问题，代码编写正常，只能从表的方面入手找问题！
高手帮帮翻译下ASP代码
)) = "" then '当名为UserName的Cookie为空时 response.Write("您还没有正确登录本系统!") '页面输出信息 response.end '停止运行 end if 'If 循环终止 > <% call fnCreateLog("用户登录系统")%> '调用fnCreateLog的Function或Sub,传递参数"用户登录系统"下面的是页面代码和CSS样式 ...
求asp高手帮忙看一下这段代码!谢谢!
你调试一下是不是你的SQL语句错误,用 RESPONSE.WRITE(SQL)RESPONSE.END()
请高手帮我解释一下这几句asp语句?
3.strIntro = strIntro & Request.Form("webimg12")(i) '为变量strIntro赋值 变量的值是上以表单名称为webimg12的控件的值 从第一个值开始一直到最后一个值 Next '如果没有跳出循环则返回for语句 继续执行循环 rs("webimg12")=strIntro '字段webimg12的值等于变量strIntro的值 rs("weburl...
