基于web的JSP网上购物系统源代码。mysql数据库与tomcat的环境下运行的。

application过程改一下：
Sub application() '申请
Dim cid
cid = Trim(Request("cid"))
If cid = "" Then
Exit Sub
End If
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From client Where cid = " & cid,conn,3,2
If rs.RecordCount > 0 Then
dim rsg
Set rsg = Server.CreateObject("ADODB.Recordset")
rsg.Open "Select * From [user] Where uName = '" & OldUser & "'",conn,3,1
oldgroup= rsg("uGroup")
rsg.Close

<%@ page contentType="text/html; charset=UTF-8" language="java" %>
<%@ page import="java.sql.*"%>
<%@ page import="Bean.QueryBean"%>






<%!
ResultSet rs=null;
String sql,login;
int code;
int pagesize=3;
int rowcount=0;
int pagecount=1,n;
int showpage=1;
%>



返回首页












<%
sql="select * from userinfo order by addtime desc";//会员查询
try
{
rs=query.executeQuery(sql);
if(!rs.next())
{
%>

<%
}else
{
rs.last();
rowcount=rs.getRow();
pagecount=((rowcount%pagesize)==0?(rowcount/pagesize):(rowcount/pagesize)+1);
String topage=request.getParameter("topage");
if(topage!=null)
{
showpage=Integer.parseInt(topage);
if(showpage>pagecount){
showpage=pagecount;
}else if(showpage<=0){
showpage=1;
}
}
rs.absolute((showpage-1)*pagesize+1);
for(int i=1;i<=pagesize;i++)
{
code=rs.getInt("id");
%>






//删除功能
<%
if(!rs.next())
break;
}}
}catch(Exception e)
{out.println("查询异常!!!");}
%>

用户管理
用户ID	用户名	用户身份	注册时间	管理
<%=code%>	<%=rs.getString("username")%>	<%=rs.getString("logrole")%>	<%=rs.getString("addtime")%>	删除
共<%=pagecount%>页 第一页 上一页 下一页 最后一页