function deleted(DoType,url) {
var Content=DoType;
var truthBeTold =window.confirm("你确定要"+Content+"?");
if (truthBeTold) {
window.location = ( url )
}
else
{
return false;
}
}
-->
If Session("Userobj") Response.Redirect "editUsers.asp?Catalog_ID="&Session("CatID")&""
Response.End
End IF
If Request("opr")="set" then
If Request("state")"" and Request("ID")"" then
Conn.Execute "Update Users Set state="&Request("state")&" where UserID="&Request("ID")&""
End IF
ElseIF Request("opr")="del" then
if Request("ID")"" then
Conn.Execute "delete * from Users where UserID="&Request("ID")&""
End IF
End IF
%>
编号
用户名
真实姓名
Email
操作
Dim strSQL
strSQL = "SELECT * FROM Users "
'strSQL = strSQL & Session("OrderString") '加上排序条件
'Response.Write strsql ' 用于测试
'On Error Resume Next
'打开数据链接
Dim rsUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open strSQL, Conn, adOpenKeyset ,adLockReadOnly
' 如果没有数据，则结束网页
If rsUsers.EOF Then
Response.Write "无记录！"
Response.Write ""
Response.End
End If
' 否则初始化页
Call InitRS( rsUsers, 20 ) ' 默认每页 20 行
Dim i
For i = 1 To PageSize
%>
If Cint( rsUsers("state") ) = 0 Then
Response.Write "[开放]"
Else
Response.Write "[关闭]"
End If
%>
[修改]
[删除]
rsUsers.MoveNext
If rsUsers.EOF Then Exit For
Next
rsUsers.Close
Set rsUsers = Nothing
'关闭数据链接
%>
