28,391
社区成员
发帖
与我相关
我的任务
分享SQL---数组---vbscript
用ASP做一个收银系统,我现在做的是
set jieguo=myconn.execute("select * from 货单 ")
MyArray=jieguo.GetRows()把数据从服务器中取得并赋值给数组
接下来用
dim myarray1(<%=UBound(MyArray1, 1)%>,<%=UBound(MyArray1, 2)%>)
<%For row = 0 To UBound(MyArray1, 2)
For col = 0 To UBound(MyArray1,1)%>
myarray1(<%=col%>,<%=row%>)="<%=zhuanhua(myarray1(col, row))%>"
<%
Next
Next%>把数组赋值给vbscript的客户端数组.
这样的话,页面的源代码长度是非常吓人的,不过一直也都可以运行.
今天不行了,在本地调试可以,送上服务器就提示超过缓存,不能正常运行.
我在页面有很多文本框,每个文本框都有响应程序,源代码半天都显示不出来
现在就是想求助,我该怎么减肥???各位大虾,出手吧!!!
set jieguo=myconn.execute("select * from 货单 ")
MyArray=jieguo.GetRows()把数据从服务器中取得并赋值给数组
接下来用
dim myarray1(<%=UBound(MyArray1, 1)%>,<%=UBound(MyArray1, 2)%>)
<%For row = 0 To UBound(MyArray1, 2)
For col = 0 To UBound(MyArray1,1)%>
myarray1(<%=col%>,<%=row%>)="<%=zhuanhua(myarray1(col, row))%>"
<%
Next
Next%>把数组赋值给vbscript的客户端数组.
这样的话,页面的源代码长度是非常吓人的,不过一直也都可以运行.
今天不行了,在本地调试可以,送上服务器就提示超过缓存,不能正常运行.
我在页面有很多文本框,每个文本框都有响应程序,源代码半天都显示不出来
现在就是想求助,我该怎么减肥???各位大虾,出手吧!!!
...全文
请发表友善的回复…
发表回复
Go 旅城通票 2014-10-26
- 打赏
- 举报
ajax动态加载+缓存来实现，已经搜索返回结果的就存到缓存中，下次判断下缓存不存在这个搜索词再发送ajax重新获取数据
hookee 2014-10-26
- 打赏
- 举报
sql server的话就写个分页的存储过程， access的话就用ado分页
slwsss 2014-10-24
- 打赏
- 举报
分页。。。。
world_broken 2014-10-24
- 打赏
- 举报
你是想做百度提示框那样的吗？ 货品单独弄出来，做成json文本，不要反复的读库
三楼の郎 2014-10-24
- 打赏
- 举报
ajax 异步动态加载数据
dycjb1978 2014-10-24
- 打赏
- 举报
我要求在文本框输入一个字母,,就把所有包含该字母的货物都显示出来,,所以,,在这一页的数组中就要包含全部数据....
Go 旅城通票 2014-10-24
- 打赏
- 举报
分页一下啊。。
<% BookIDList = Session("BookIDList")'session(BookIDList)第一次运行为空
ABookID = Split(Request("bookID"), ", ")'ABookID数组存入的是图书的id'
For I=0 To UBound(ABookID)'显示数组的最大维数
If Len(BookIDList) = 0 Then
BookIDList = "'" & request("bookID") & "'"
ElseIf InStr( BookIDList, request("bookID"))
您的购物车为空！
您还没有选购任何书籍，您的购物车为空！
<% if request.Form("jiezhang")="保存订单" then
response.Redirect("checkout.asp")
end if
If Len(Session("BookIDList")) 0 Then
sql = "Select * From tb_book Where isbn In (" &_
session("bookIDList") & ") Order By isbn"
Set rs = cnn.Execute( sql )
else
Response.Redirect "buycarempty.asp"
end if
%>
查看购物车
function stand(){
window.close();}
书号
书 名
单价
数量
金额
移去
<% sl = Request( "sl"&i)
If sl
(元)
(元)
合计金额：
（元）
清空购物车
<% session("mName")=""
if request.Form("UserID")"" and request.Form("userPWD")"" then
session("ID1")=request.Form("UserID")
session("PWD")=request.Form("userPWD")
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT userid, password FROM tb_member WHERE userid='" & session("ID1")&"'"
set rs=cnn.execute(sql)
if rs.eof then %>
alert("登录失败！");
window.history.back();
window.location.href="checkoutok.asp"
alert("您输入的会员密码错误，请重新输入！");
history.back();
保存订单信息
//检验会员ID号和密码
function check(){
if (form1.userID.value==""){
alert("请输入会员ID号！");form1.userID.focus();return;}
if (form1.userPWD.value==""){
alert("请输入会员密码！");form1.userPWD.focus();return;}
form1.submit();}
如果您还不是我们的会员，请单击“注册”按钮注册会员！
会员ID号：
注册
您的密码：
以下是您选购的图书：
书号
书名
单价
数量
金额
（元）
（元）
订单保存成功！
<% '返回订单号等信息
orderid=objCmd.Parameters(3)
sql1 = "Select * From tb_book Where isbn In (" & session("checkBook") & ")"
Set rs = cnn.Execute( sql1 )
ASL1=""
ASL1=split(session("sl"),",")
i=0
sum=0
shuliang=0
while not rs.eof
bookID=rs("isbn")
price=rs("price")
paSL=cInt(ASL(i))
booksum=cdbl(rs("price"))*ASL(i)
sql2="insert into tb_orderdetail(orderid,isbn,num,money) values ('"&_
orderid&"','"&bookID&"',"&paSL&","&booksum&")"
set rs1=cnn.execute(sql2)
i=i+1
rs.movenext
wend
for each parm in objCmd.Parameters
if parm.name="parID" then
name1="会员ID"
end if
if parm.name="sum" then
name1="订货金额"
end if
if parm.name="oDate" then
name1="订购日期"
end if
if parm.name="aa" then
name1="订单号"
end if
Response.Write name1 &":"& trim(parm)
if name1="订货金额" then
response.write "元"
else
response.write ""
end if
next
%>
订单已经成功保存，欢迎下次惠顾！
网上图书订购
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code
网站首页
查看购物车
会员登录
管理员登录
书号
书名
出版社
图书类型
作者
等于
Like
查询图书库存量
书号
书名
图书类型
等于
Like
<%
If (Request("cValue") "" and Request("sField") "") Then
If (Request("cValue") "") Then
session("INvalue") = Request("cValue")
End If
session("pBookName") = "BookName"
If (Request("sField") "") Then
session("pBookName") = Request("sField")
End If
session("pBookName")=Replace(session("pBookName"), "'", "''")
session("INvalue")=Replace(session("INvalue"), "'", "''")
If (Request("mode") "") Then
session("rs_mode") = Request("mode")
End If
end if
if session("rs_mode")"" then
if session("rs_mode")="==" then
sql= "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "_
+ session("pBookName") + " = '" + session("INvalue") + "'"
else
sql = "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "&_
session("pBookName") & " Like '%" & session("INvalue") & "%'"
end if
else
sql="SELECT isbn, bookname, kind, price,total FROM tb_total "
end if
set rs_search=Server.CreateObject("ADODB.RecordSet")
rs_search.open sql,cnn,1,3
%>
function newwin1(url){
var newwin=window.open(url,"","resizable=yes,scrollbars=yes,width=700,height=400");
newwin.focus();
return false;
}
书号
书 名
图书类型
价格
库存
alert("无符合条件的图书！")
history.back(1)
<%response.end()
end if
'分页'
rs_search.pagesize=7
page=CLng(Request("page"))
if page
<% if page1 then %> 第一页
上一页
<%end if
if pagers_search.pagecount then %>
下一页
最后一页
无符合条件的记录！
<%
response.Expires=-1
username1=trim(request("username"))
userpass1=trim(request("userpass"))
if username1="" or userpass1="" then
session("passed1")=""
session("msg1")="用户ID和密码不能为空"
else
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_member where userid='"&username1&"'"
rs.open strsql,cnn,3,3
if rs.eof then
session("passed1")=""
session("msg1")="用户ID不存在"
else
if rs("PassWord")userpass1 then
session("passed1")=""
session("msg1")="密码错误"
else
session("passed1")=true
session("msg1")=""
session("ID1")=username1
session("username1")=rs("UserName")
end if
end if
end if
response.Redirect("memberlogin.asp")
%>
会员登录
function chkfields(){
if(document.myform.username.value==''){
alert("用户ID不能为空");
document.myform.username.focus();
return false;
}
if(document.myform.userpass.value==''){
alert("用户密码不能为空");
document.myform.userpass.focus();
return false;
}
return true;
}
function look(id){
window.open("orderhistory.asp?ID="+id,"","scrollbars=yes,resizable=yes,width=700,height=600");
}
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code
网站首页
查看购物车
会员登录
管理员登录
<%
if session("msg1")"" then
response.write session("msg1")
else
response.write "用户登录"
end if
%>
I D:
密 码:
用户 , 您已成功登录
会员注册成功
祝贺您，已经注册成功！
您的会员ID号为：[
]
密码为： [
] 请记好！
单击“返回”按钮保存订单信息。
数组的最大维数
cclickBookID="'"&request("clickBookID")&"'"
If ArrcheckBook(i)cclickBookID Then
If Len(BookIDList) = 0 Then
BookIDList =ArrcheckBook(i)
Else
BookIDList = BookIDList & ", " & ArrcheckBook(i)
End If
end if
Next
If len(BookIDList)=0 Then
session("BookIDList")= BookIDList
Response.Redirect("buycarempty.asp")
Else
session("BookIDList")= BookIDList
Response.Redirect "buycarsee.asp"
end if
%>
<%
response.Expires=-1
username1=trim(request("username"))
userpass1=trim(request("userpass"))
'response.write 41
'response.End()
if username1="" or userpass1="" then
session("passed")=""
session("msg")="请您先登录再进来！"
'response.Redirect("userlogin.asp")
else
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_operator where operatorname='"&username1&"'"
rs.open strsql,cnn,3,3
if rs.eof then
session("passed")=""
session("msg")="管理员名称不存在"
else
if rs("password")userpass1 then
session("passed")=""
session("msg")="密码错误"
else
session("passed")=true
session("msg")=""
session("username")=rs("operatorname")
'response.Redirect("userlogin.asp")
end if
end if
end if
response.Redirect("operatorlogin.asp")
%>
管理员登录
function chkfields(){
if(document.myform.username.value==''){
alert("管理员名称不能为空");
document.myform.username.focus();
return false;
}
if(document.myform.userpass.value==''){
alert("管理员密码不能为空");
document.myform.userpass.focus();
return false;
}
return true;
}
function take(){
window.open("lookup.asp","图书库存查询");
}
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code
网站首页
查看购物车
会员登录
管理员登录
<%
if session("msg")"" then
response.write session("msg")
else
response.write "管理员登录"
end if
%>
管理员:
密码:
管理员 , 登录成功
的订单一览表
的订单一览表
订单号书号书名价格数量金额购书日期
<%
rs.pagesize=7
page=CLng(Request("page"))
if page
第一页
<%
end if
if page1 then %> 第一页
上一页
<%end if
if pagers.pagecount then %>
下一页
最后一页
<%
else
response.write "您没有购书记录！"
end if
%>
<%
If (Request("cValue") "" and Request("sField") "") Then
If (Request("cValue") "") Then
session("INvalue") = Request("cValue")
End If
session("pBookName") = "BookName"
If (Request("sField") "") Then
session("pBookName") = Request("sField")
End If
session("pBookName")=Replace(session("pBookName"), "'", "''")
session("INvalue")=Replace(session("INvalue"), "'", "''")
If (Request("mode") "") Then
session("rs_mode") = Request("mode")
End If
end if
if session("rs_mode")"" then
if session("rs_mode")="==" then
sql= "SELECT isbn, bookname, author, price FROM tb_book WHERE "_
+ session("pBookName") + " = '" + session("INvalue") + "'"
else
sql = "SELECT isbn, bookname, author, price FROM tb_book WHERE "&_
session("pBookName") & " Like '%" & session("INvalue") & "%'"
end if
else
sql="SELECT isbn, bookname, author, price FROM tb_book "
end if
set rs_search=Server.CreateObject("ADODB.RecordSet")
rs_search.open sql,cnn,1,3
%>
function newwin1(url){
var newwin=window.open(url,"","resizable=yes,scrollbars=yes,width=700,height=400");
newwin.focus();
return false;
}
书号
书 名
作 者
原价
现 价
购物
alert("无符合条件的图书！")
history.back(1)
<%response.end()
end if
'分页'
rs_search.pagesize=7
page=CLng(Request("page"))
if page
<% if page1 then %> 第一页
上一页
<%end if
if pagers_search.pagecount then %>
下一页
最后一页
无符合条件的记录！
