asp删除mysql_ASP如何删除数据库的一行数据

''orderbyiddesc"rs.opensql,conn,1,1ifrs.bofthenResponse.Write(...

Set rs=Server.CreateObject("ADODB.Recordset")

sql="select * from comment where id<>'' order by id desc"

rs.open sql,conn,1,1

if rs.bof then

Response.Write("现在没有评论。")

Response.end

end if

%>

Function leftString(str,length)

dim x,y,i,s

s=str

x = len(str)

y = 0

if x >= 1 then

for i = 1 to x

if asc(mid(str,i,1)) < 0 or asc(mid(str,i,1)) >255 then

y = y + 2

else

y = y + 1

end if

if y >= length then

s = left(str,i) '字符串字节数

exit for

end if

next

end if

leftString = s

End Function

%>

function test()

{

if(!confirm('确认删除吗？')) return false;

}

大名

网址

内容

IP

删除

rs.pagesize=30

currentpage=Clng(request("page"))

if currentpage<1 then currentpage=1

if currentpage>rs.pagecount then currentpage=rs.pagecount

rs.absolutepage=currentpage

do while not rs.eof

%>

【】

删除

i=i+1

rs.MoveNext

If i>=rs.pagesize Then Exit Do

Loop

%>

共有评论：   (页) 1 then%> 首页  上一页 下一页  尾页

在这段代码中 如何《点击删除》删除一列数据

展开