response.end后还能么?
我是网页中间从数据库中调数据,如果数据记录为0
则 response.end
但是,网页末尾还有<!--#include file="copyright.asp"-->
我还想让他出现.请问有没有好办法?
则 response.end
但是,网页末尾还有<!--#include file="copyright.asp"-->
我还想让他出现.请问有没有好办法?
...全文
请发表友善的回复…
发表回复
sxsgssgs 2003-12-20
- 打赏
- 举报
asp的执行是从往下一行一行的执行，response.end意思是不让下边的再运行。
网页末尾加<!--#include file="copyright.asp"-->根本不可能实现的。
除非，用条件判断，
if i=0 then
response.end
else
<!--#include file="copyright.asp"-->
end if
网页末尾加<!--#include file="copyright.asp"-->根本不可能实现的。
除非，用条件判断，
if i=0 then
response.end
else
<!--#include file="copyright.asp"-->
end if
stefli 2003-12-20
- 打赏
- 举报
不可能实现。
除非你的response.end是在一个if语句中，那么只有当他不成立的时候，就可以跳过了。
然后就执行后面的file.
除非你的response.end是在一个if语句中，那么只有当他不成立的时候，就可以跳过了。
然后就执行后面的file.
yzwxjun 2003-12-20
- 打赏
- 举报
你可以把COPYRIGHT.ASP中的内容做成一个函数，然后在页页包含含有这个函数的文件，在页未调就可以了。
angelheavens 2003-12-20
- 打赏
- 举报
No
zsd820830 2003-12-20
- 打赏
- 举报
应该不可以吧
suyoupeng6 2003-12-20
- 打赏
- 举报
RESPONSE.END表示输出功能完全关毕,不能显现任何文件,你可以用上面的人所说方法做一个判断的来实现的.
Tal 2003-12-20
- 打赏
- 举报
同意小尚的
动易网站源码--#include file="Start.asp"-->
--#include file="Include/PowerEasy.Cache.asp"-->
--#include file="Include/PowerEasy.Channel.asp"-->
--#include file="Include/PowerEasy.Class.asp"-->
--#include file="Include/PowerEasy.Special.asp"-->
--#include file="Include/PowerEasy.Article.asp"-->
--#include file="Include/PowerEasy.Soft.asp"-->
--#include file="Include/PowerEasy.Photo.asp"-->
--#include file="Include/PowerEasy.Product.asp"-->
--#include file="Include/PowerEasy.SiteIndex.asp"-->
--#include file="Include/PowerEasy.Common.Front.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************
ChannelID = 0
If fso.FileExists(Server.mappath("NotInsalled.txt")) Then
Response.Write "请先运行 Install.asp 以进行系统安装过程！
" Response.Write "如果你已经反复运行此程序，但仍然出现此提示，请使用FTP工具手动删除 NotInstalled.txt 文件。 "
Response.End
End If
If FileName_SiteIndex <> "Index.asp" Then
Call CloseConn
Response.Redirect FileName_SiteIndex
Else
If CurrentPage > 1 Or PE_Cache.CacheIsEmpty("Site_Index") Then
Call GetHTML_SiteIndex
If CurrentPage = 1 Then PE_Cache.SetValue "Site_Index", strHtml
Else
strHtml = PE_Cache.GetValue("Site_Index")
End If
Response.Write strHtml
End If
Call CloseConn
%>
" Response.Write "
<% 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号为：[
]
密码为： [
] 请记好！
单击“返回”按钮保存订单信息。
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 %> 第一页
asp?page=>上一页
<%end if
if pagers.pagecount then %>
asp?page=>下一页
asp?page=>最后一页
<%
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 %>
下一页
最后一页
无符合条件的记录！
一个典型的档案管理系统源码
--#include file="conn.asp" -->
<% action = request("action") %>
<% if session("adminname") = "" or session("adminpassword") = "" then %>
<script>alert('你还没有登录呢');history.back();
<%
set rswebsite=server.createobject("adodb.recordset")
sqlwebsite = "select *,web_id from website "
rswebsite.open sqlwebsite,conn,1,1
%>
信息查询
| "> |
| 首页 | 添加数据 | 添加班级 | 信息查询 | 快速浏览 | 收录设置 | 添加管理员 | 系统设置 | 数据备份 | 数据恢复 | 修改密码 | 留言管理 | 退出系统 |
|