哪位知道中文asp论坛人气旺的网站有哪些？说出几个，立即给分？并有一个 asp 的入门级问题(100分)

seeyouknowme · 2003-10-30

哪位知道中文asp论坛人气旺的网站有哪些？说出几个，立即给分？
如能回答以下问题更好，批量删除记录
index.asp代码如下：

<html>
<head><title>hello world</title></head>
<body>
<form action="del.asp" method="post">
<table border=5 align=center width="400" height="50">
<caption align=top >人员表单</caption>
<p align=center>&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp<a href="add.asp">添加</a>&nbsp&nbsp&nbsp&nbsp<input type=submit name=submit value="删除"></input></a>&nbsp&nbsp&nbsp&nbsp<a href="del.asp">修改</a>
<tr><th width=25%>编号</th><th width=25%>name</th><th width=25%>old</th><th width=25%>sex</th>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from access"
rs.open sql,connect,1,3
%>
<%
if not rs.eof then
do while not rs.eof
%>
<tr><td width=25%><a href="del.asp"><input type=checkbox name="del"&<%=rs("id")%>><%=rs("id")%></a></td><td width=25%><%=rs("name")%></td><td width=25%><%=rs("old")%></td><td width=25%><%=rs("sex")%></td>
</tr>
<%rs.movenext%>
<%
loop
end if
%>

</table>
</form>
</body>
</html>
conn.asp代码如下：
<%set connect=server.CreateObject("adodb.connection")
connect.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb")
%>
del.asp代码如下：

<%
set rs=server.createobject("adodb.recordset")
sql="select * from access "
rs.open sql,connect,1,3
do while not rs.eof
a=rs.fields("id")
s="del"&a
if (request.form(s)="on") then
set rcs=server.createobject("adodb.recordset")
ss="delete * from access where id="&a
response.write request.form("id")
response.end
rcs.open ss,connect,1,3
end if
rs.movenext
loop
rs.close
set rs=nothing
response.redirect "index.asp"
%>

问题是删除一条记录时可以，批量删除时有问题
关键是判断index.asp中form的选中的checkbox
语句if request.form(s)="on"then
该句不执行
因index.asp中的checkbox 的 name 是循环生成的数据库中的id字段是自动生成的编号
关键是如何取出选中的checkbox 也就是
if request.form(s)="on" then
该句如何正确的写！！！！！！！！！！！！！

wyn · 2003-10-30

request("ID")=ID的

chinesetree · 2003-10-30

接收时：Id = split(trim(request.Form("recId")),",")
然后：
for j=0 to UBound(Id) '添加数据
tmpSql = "update cost.dbo.prj_dpt_settle set cost.dbo.prj_dpt_settle.ti_is_checked='"&iTi_is_checked&"' ,"&_
"dtm_settle_date = '"&dtmSettledDate&"',v_examine_people='"&v_examine_people(j)&"',v_examine_principal = '"&v_examine_principal&"', "&_
"n_prj_dpt_income = '"&txtMonth(j)&"',v_comment ='"&comment(j)&"',n_settle_income = '"&txtSettle(j)&"',n_material_income = '"&txtMaterial(j)&"',v_examine_Dpt='"&v_examine_Dpt&"' "&_
" where cost.dbo.prj_dpt_settle.[id] = '"&Id(j)&"'"
conn.execute ( tmpSql )
Next

delphi.er · 2003-10-30

http://www.aspx.cn/

zhujie_net · 2003-10-30

批量删除要看你前面那个叶面得html代码
一般来说，你应该生成类似下面这个样子的代码：
<input type=checkbox name=id1...>...
<input type=checkbox name=id2...>...
处理页面有个笨办法
<%
for i = 1 to 50（足够大就可以）
id = request("id"&i)
sql = "delete from yourtable where id = " &
id
conn.execute sql
%>
我只是写个思想，具体代码要看你的需要。
有问题，尤其是asp方面的，可以到我的论坛提问。虽然人不多，但是我可以保证回答的速度和质量，敬请测试。
http://club.zhujie.net

chinesetree · 2003-10-30

你的index.asp
checkbox用的方法不对
改是这样的
<input type=check name="Del" value="<%=rs("id")%>">
然后接收
Id = split(trim(request.Form("Del")),",")
For j = 0 to UBound(id)
sql="delete * from access where id='"&id(j)&"'
conn.execute (sql)
Next

helloqiner · 2003-10-30

www.csdn.net

chinesetree · 2003-10-30

我靠下班了也不说一声
sql与access语法不太一样：
[red]index.asp[/red]

<html>
<head><title>hello world</title></head>
<body>
<form action="del.asp" method="post">
<table border=5 align=center width="400" height="50">
<caption align=top >人员表单</caption>
<p align=center>&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp<a href="add.asp">添加</a>&nbsp&nbsp&nbsp&nbsp<input type=submit name=submit value="删除"></input></a>&nbsp&nbsp&nbsp&nbsp<a href="del.asp">修改</a>
<tr><th width=25%>编号</th><th width=25%>name</th><th width=25%>old</th><th width=25%>sex</th>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from access"
rs.open sql,connect,1,3
%>
<%
if not rs.eof then
do while not rs.eof
%>
<tr>
<td width=25%><a href="del.asp">
<input type=checkbox name="Del" value="<%=rs("id")%>" ><%=rs("id")%></a></td><td width=25%><%=rs("name")%>
</td>
<td width=25%><%=rs("old")%></td>
<td width=25%><%=rs("sex")%></td>
</tr>
<%rs.movenext%>
<%
loop
end if
%>

</table>
</form>
</body>

[black]del.asp[/black]

<%
set rs=server.createobject("adodb.recordset")
'sql="select * from access "
'rs.open sql,connect,1,3
'do while not rs.eof
' a=rs.fields("id")
' s="del"&a

Id = split(trim(request.Form("Del")),",") '转换为数组
For j = 0 to UBound(id)
sql="delete from access where id="&id(j)
'rs.execute sql&"<BR>"
'response.Write sql
rs.open sql,connect,1,3

'response.write id(j)
Next
'Response.Write "删除成功"
%>

tal · 2003-10-30

sql="delete * from access where id in ('" &
replace(a &
"" , "," , "','") &
"')"
conn.execute(sql)
'http://www.csdn.net
'http://www.aspxcn.com

Eva · 2003-11-05

http://www.dev-club.com/

archonwang · 2003-11-05

www.blueidea.com

only_delphi · 2003-12-18

www.csdn.net
是个不错的网站，如果是初学，可以搜索一下，许多个人网站的内容对初学者很好
我这里有不少初学的习作，我给你发过去，解一下燃煤之急

seeyouknowme · 2003-12-18

多人接受答案了。

哪位知道中文asp论坛人气旺的网站有哪些？说出几个，立即给分？并有一个 asp 的入门级问题(100分)

seeyouknowme

Unregistered / Unconfirmed

wyn

Unregistered / Unconfirmed

chinesetree

Unregistered / Unconfirmed

delphi.er

Unregistered / Unconfirmed

zhujie_net

Unregistered / Unconfirmed

chinesetree

Unregistered / Unconfirmed

helloqiner

Unregistered / Unconfirmed

chinesetree

Unregistered / Unconfirmed

tal

Unregistered / Unconfirmed

Eva

Unregistered / Unconfirmed

archonwang

Unregistered / Unconfirmed

only_delphi

Unregistered / Unconfirmed

seeyouknowme

Unregistered / Unconfirmed

Similar threads