asp删除操作的问题?

Friday_china 2004-12-07 02:16:28
asp删除操作的问题?

我是菜鸟。下载了一个好像是足球投注的源代码看,里面有一个是赛事管理和会员管理的页面,我试着想加上一个“删除”的功能,就是对数据库进行删除的操作,可是怎么样做都不行,希望大侠帮忙给看看。指点一下,谢谢

还有就是:第二个代码里面的登陆次数为什么只是显示 0 呢(好像也没有什么错误)

最好可以详细讲解以下谢谢

===========
第1个
===========
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#FFCC66">
<td colspan="4" align="center"> </td>
</tr>
<%
fileurl=Request.ServerVariables("URL")
fileurl=split(fileurl,"/")
i=UBound(fileurl,1)
file_url=fileurl(i)

Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="select GameID,MatchName,GameTime,Team1,Team2,Score1,Score2,Score3,Score4,ShowTime,EndTime from Game where ClassID=" & ClassID &" order by GameID DESC"
mypage.pagesize=8
set rs=mypage.getrs()
if rs.eof then%>
<%else
for i=1 to mypage.pagesize
if not rs.eof then
if ClassID<> 7 or ClassID<>8 then
sql="select count(*) as PayCount from Result where GameID='" & rs("GameID") & "' and IsPay=0"
set rs1=conn.execute(sql)
PayCount=rs1("PayCount")
rs1.close
set rs1=nothing
end if
%>
<tr bgcolor="#E6F0Fa">
<td width="15%" height="20" align="center" bgcolor="#E6F0Fa">开赛时间</td>
<td height="20" align="center" bgcolor="#E6F0Fa"><font color=Blue><%= rs("MatchName") %></font></td>
<td width="15%" height="20" align="center">开盘时间</td>
<td width="15%" height="20" align="center" bgcolor="#E6F0Fa">封盘时间</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height="20" align="center" bgcolor="#FFFFFF"><%= FormatDateTime(rs("GameTime"),2) %></td>
<td rowspan="3" align="center" bgcolor="#FFFFFF"><table width="96%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td> </td>
<td width="18%" align="center" bgcolor="#F5F5F5">上半场</td>
<td width="18%" align="center" bgcolor="#F5F5F5">终场</td>
</tr>
<tr>
<td> <font color="#FF0000"><%= rs("Team1") %>(主)</font></td>
<td width="18%" align="center" bgcolor="#F5F5F5"><font color="#FF0000"><%= rs("Score1") %></font></td>
<td width="18%" align="center" bgcolor="#F5F5F5"><font color="#FF0000"><%= rs("Score3") %></font></td>
</tr>
<tr>
<td> VS <%= rs("Team2") %></td>
<td width="18%" align="center" bgcolor="#F5F5F5"><%= rs("Score2") %></td>
<td width="18%" align="center" bgcolor="#F5F5F5"><%= rs("Score4") %></td>
</tr>
</table></td>
<td width="15%" height="20" align="center"><%= FormatDateTime(rs("ShowTime"),2) %></td>
<td width="15%" height="20" align="center" bgcolor="#FFFFFF"><%= FormatDateTime(rs("EndTime"),2) %></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height="20" align="center" bgcolor="#FFFFFF"><%= FormatDateTime(rs("GameTime"),4) %></td>
<td width="15%" height="20" align="center"><%= FormatDateTime(rs("ShowTime"),4) %></td>
<td width="15%" height="20" align="center" bgcolor="#FFFFFF"><%= FormatDateTime(rs("EndTime"),4) %></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" height="20" align="center" bgcolor="#F5F5F5"> <% if now()>rs("ShowTime") and now()<rs("EndTime") then %> <font color=green>正在开盘</font> <% Elseif now()>rs("EndTime") then %> <font color=blue>已经封盘</font> <% Else %> <font color="#FF6600">等待开盘</font> <% End If %> </td>
<td height="20" colspan="2" align="center" bgcolor="#EBEBD6"><a href="<%= file_url %>?action=Edit&GameID=<%= rs("GameID") %>">修改</a>
<% if now()>rs("EndTime") then %>   |  <a href="<%= file_url %>?action=Ending&GameID=<%= rs("GameID") %>">赛果</a>
<% if PayCount>0 then%>   |  <a href="admin_game<%=ClassID%>_balance.asp?GameID=<%= rs("GameID")%>&ClassID=<%=ClassID %>">结算</a>
<% End If %> <%if ClassID= 7 or ClassID=8 then %>   |  <a href="admin_game<%=ClassID%>_balance.asp?ClassID=<%=ClassID %>">结算</a>
<%end if
end if%> </td>
</tr>
<% rs.movenext
else
exit for
end if
next
end if
%>
</table>
<br>
</body>
</html>




===========
第2个
===========
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="function.asp"-->
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员资料</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
<%
if session("AdminID")="" then
response.write "<script language='javascript'>" & chr(13)
response.write "alert('操作超时,请您重新登陆!');" & Chr(13)
response.write "window.top.location.href='login.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
end if
%>
<style type="text/css">
<!--
a {
font-family: Arial, Helvetica, sans-serif;
}
-->
</style></head>
<body leftmargin="5" marginheight="0" marginwidth="0" bgcolor="#F4EEE4" class="Dtu">
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="6" bgcolor="#0033FF"></td>
</tr>
<tr>
<td>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
<tr align="center">
<td height="35" colspan="4" background="images/tablebg.gif"><strong>查看会员记录</strong></td>
</tr>
<tr>
<td height="325" align="center" valign="top"><br>
<table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr align="center" bgcolor="#E6F0FA">
<td width="25%" height="25">会员名称</td>
<td>真实姓名</td>
<td width="15%">登陆次数</td>
<td width="15%" height="25">下注次数</td>
<td width="15%" height="25">管理操作</td>
</tr>
<%
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="select UserID,UserName,RealName,LoginTimes from [User] order by UserID DESC"
mypage.pagesize=10
set rs=mypage.getrs()
for i=1 to mypage.pagesize
if not rs.eof then
sql="select count(*) as paynum from Result where UserID=" & rs("UserID")
set rs1=conn.execute(sql)
%>
<tr bgcolor="#FFFFFF">
<td width="25%" height="25" align="center" bgcolor="#FFFFFF"><%= rs("UserName") %></td>
<td align="center" bgcolor="#FFFFFF"><%= rs("RealName") %></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#009900"><%= rs("LoginTimes") %></font></td>
<td width="15%" height="25" align="center" bgcolor="#FFFFFF"><font color="#FF0000"><%= rs1("paynum") %></font></td>
<td width="15%" height="25" align="center" bgcolor="#FFFFFF"><a href="admin_user_record.asp?UserID=<%= rs("UserID") %>">查看记录</a></td>
</tr>
<% rs1.close
set rs1=nothing
rs.movenext
else
exit for
end if
next
%>
</table>
<br>
<table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" align="right" bgcolor="#F5F5F5"><% mypage.showpage() %> </td>
</tr>
</table>

<br></td>
</tr>
<tr align="center">
<td height="25" colspan="4" background="images/tablebg.gif"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="3" bgcolor="#0033FF"></td>
</tr>
</table>
</BODY>
</HTML>
<%
conn.close
set conn=nothing
%>
...全文
75 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Friday_china 2004-12-07
我自己加了“删除‘,不起作用,就给去掉了


能不能麻烦那个大侠帮我加上个删除,,多谢
回复
shijian58 2004-12-07
自己加上删除功能,按id直接操作就ok了啊,想删哪里就删那里
回复
888228 2004-12-07
删除记录?

Delete From TableName where ....
回复
opbsm 2004-12-07
帮你顶一下
回复
whb147 2004-12-07
不知道你想删除什么?
回复
whb147 2004-12-07
我也没有看到
回复
sdts 2004-12-07
你这段代码里都找不到“删除”两个字啊
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-07 02:16
社区公告
暂无公告