Question

del.asp 数据库修改删除

<%
dim totalbbs,page,pages,i,buser,ter_id,sub_id,cla_id,sql_buser,sql_ter_id,sql_sub_id,sql_cla_id
set rs= Server.CreateObject("ADODB.Recordset")
buser=replace(trim(request("buser")),"'","")
ter_id=request("ter_id")
sub_id=request("sub_id")
cla_id=request("cla_id")
if isnumeric(buser)=false then
sql_buser=""
else
sql_buser=" and b.buser='"&buser&"' "
end if
if tnow<>"" then
if ter_id="" then
sql_ter_id=" and b.ter_id="&tnow&" "
elseif ter_id="all" then
sql_ter_id=""
else
sql_ter_id=" and b.ter_id="&ter_id&" "
end if
end if
if sub_id="" then
sql_sub_id=""
else
sql_sub_id=" and b.sub_id="&sub_id&" "
end if
if cla_id="" then
sql_cla_id=""
else
sql_cla_id=" and b.cla_id="&cla_id&" "
end if
rs.open ("select b.bid,b.buser,b.bresult,b.btype,s.sname,c.cname,ss.sname,t.tname,d.dname from bbs b,student s,class c,subject ss,term t,department d where b.buser=s.suser and b.sub_id=ss.sid and b.cla_id=c.cid and c.dep_id=d.did and b.ter_id=t.tid "&sql_buser&" "&sql_ter_id&" "&sql_sub_id&" "&sql_cla_id&" order by b.bid desc"),conn,1,3
if rs.eof and rs.bof then
page=1
pages=1
totalbbs=0
response.write"<tr><td width='100%' height='100' align='center' colspan='7'>没有相关的成绩资料</td></tr>"
else
totalbbs=rs.recordcount '总的条数
rs.pagesize=15 '每页显示的条数
pages=rs.pagecount '总的找到页数
page=request("page") '当前页
if page="" then
page=1
elseif page<1 then
page=1
end if
page=cint(page)
if page>pages then page=pages
rs.absolutepage=page
do while not rs.eof and i<rs.pagesize
i=i+1
%>
<tr title=<%=rs(4)%>>
<td><div align="center"><%=rs("buser")%></div></td>
<td><div align="center"><%=rs("dname")&rs("cname")%></div></td>
<td><div align="center"><%=rs(6)%></div></td>
<td><div align="center"><%=rs("bresult")%></div></td>
<td><div align="center"><%=rs("tname")%></div></td>
<td><div align="center"><%if rs("btype")=1 then response.write"期中" else response.write"期末"%></div></td>
<td><div align="center">
<input type="button" name="Submit4" value="编辑" onClick=location.href="admin_editbbs.asp?action=edit&id=<%=rs("bid")%>">
<input type="button" name="Submit5" value="删除" onClick="javascript:del('admin_editbbs.asp?action=del&id=<%=rs("bid")%>','<%=rs(4)%>')">
</div></td>
</tr>

请问里面那两个按钮 编辑和删除 怎么做啊？
删除是链接到del.asp
帮忙写下这两个网页，我是初学者！

Answer 1

<input type="button" name="Submit4" value="编辑" onClick=location.href="admin_editbbs.asp?action=edit&id=<%=rs("bid")%>">
按你写的，编辑是链接到 admin_editbbs.asp 处理的

<input type="button" name="Submit5" value="删除" onClick="javascript:del('admin_editbbs.asp?action=del&id=<%=rs("bid")%>','<%=rs(4)%>')">
按你写的，删除，是调用 js的 del函数，按其参数看来，应该也是链接到 admin_editbbs.asp 去处理的

你要在 del.asp 里处理，把上面的 aadmin_editbbs.asp 改掉就行了