<select name="abab">
<option>ABCD</option>
<option value="aa">AABBCC</option>
</select>
在Form中,有如上语句,用POST提交。接收到的字符串是“abab=AABBCC”?
还是“aa=AABBCC”?
我想利用value的值!
<option>ABCD</option>
<option value="aa">AABBCC</option>
</select>
在Form中,有如上语句,用POST提交。接收到的字符串是“abab=AABBCC”?
还是“aa=AABBCC”?
我想利用value的值!
...全文
请发表友善的回复…
发表回复
TobyLee 2003-10-17
- 打赏
- 举报
如果你选中了AABBCC的话,接收到的将是abab=aa
#!/usr/bin/perl
#
print "Content-Type:text/html\n\n";
if($ENV{"REQUEST_METHOD"}eq"post"){
read(STDIN,$val,$ENV{"CONTENT_LENGTH"});
}else{
$val=$ENV{"QUERY_STRING"};
}
@val=split(/&/,$val);
foreach $val(@val){
($key,$value)=split(/=/,$val);
$FORM{"$key"}=$value;
}
print $FORM{"abab"};
#!/usr/bin/perl
#
print "Content-Type:text/html\n\n";
if($ENV{"REQUEST_METHOD"}eq"post"){
read(STDIN,$val,$ENV{"CONTENT_LENGTH"});
}else{
$val=$ENV{"QUERY_STRING"};
}
@val=split(/&/,$val);
foreach $val(@val){
($key,$value)=split(/=/,$val);
$FORM{"$key"}=$value;
}
print $FORM{"abab"};
<% 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
value=
size="3" readonly="yes" style="border-left:none;border-right:none;border-top:none">
(元)
value= size="4">
value= size="6" readonly="yes" style="border-left:none;border-right:none;border-top:none">
(元)
合计金额:
value= size="10" readonly="yes">
(元)
清空购物车
<% 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:
密 码:
用户 , 您已成功登录
value="查 看 订 单" name="b2" class="btnLogin" onClick="look('')">
会员注册成功
祝贺您,已经注册成功!
您的会员ID号为:[
]
密码为: [
] 请记好!
单击“返回”按钮保存订单信息。
value="
网上图书订购
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
网站首页
查看购物车
会员登录
管理员登录
此处显示 id "content" 的内容
此处显示 id "footer" 的内容
<%
ArrcheckBook= Split(Session("CheckBook"),", ")
BookIDList=""
For I=0 To UBound(ArrcheckBook)'显示数组的最大维数
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 %>
下一页
最后一页
无符合条件的记录!