rs open参数 是 1,3 这是包含page.asp的 admin_main.asp的部分代码 -------------------------------
<!--#include file="Conn.Asp"-- >
<!--#include file="Page.Asp"-- > <%
If Session(SessionVAR)="" Then
Call Msgs("未登陆!","Admin_Login.Asp")
End If
Select Case request("Action")
Case "Ispass"
If Req("UserID") < >"" And Req("mIsPass") < >"" Then
If Req("mIsPass")=1 Then
TsqlStr = ", UserPower=UserPower ,WebUrlON=1"
Else
TsqlStr = ""
End If
'Response.Write Req("UserID")&"V:"&Req("mIsPass")&"V:"&Req("Page")
'Response.End
Conn.Execute("Update Member Set UserIspass =" & Req("mIsPass") & " " & TsqlStr & " Where ID=" & CLng(Req("UserID")) & "")
Response.Redirect "Admin_Main.Asp?Page=" & Request("Page") & ""
End If
Case "Del"
SQLdel="DELETE from Member Where ID=" & CLng(Req("ID"))
Conn.execute(SQLdel)
Response.Redirect "Admin_Main.Asp"
Case "LoginOut"
Session(SessionVAR)= Empty
Call Msgs("管理退出成功!","../Index.asp")
Case "UserModify"
Conn.Execute("Update Member Set UserPower = '" & Req("UserPower") & " ',Userpassword = '" & Req("Userpassword") & " ', WebClick = '" & Req("WebClick") & " ', MainUrl = '" & Req("MainUrl") & " ', UserQuestion = '" & Req("UserQuestion") & " ',UserAnswer = '" & Req("UserAnswer") & " ',UserQQ = '" & Req("UserQQ")&" ',UserClass= '"&Req("UClass")& " ',UserMail = '" & Req("UserMail") & " ' Where ID=" & Req("UserID") & "")
Response.Redirect "Admin_Main.Asp"
End Select
% >
<HTML >
<HEAD >
<title >后台管理 ¦ <%=SiteVer% > </title >
<link href="../images/css.css" rel="stylesheet" type="text/css" >
<META http-equiv="Content-Type" content="text/html; charset=gb2312" > <SCRIPT LANGUAGE="JavaScript" >
function confirmdel(id){
if (confirm("删除数据是不可恢复的,确认删除嘛?"))
window.location.href="?Action=Del&ID="+id
}
</SCRIPT >
</HEAD >
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="head.asp" -- > <table width="778" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr background="image/nav-bg.jpg" >
<td height="49" background="image/nav-bg.jpg" > </td >
</tr >
<tr >
<td valign="top" > <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr > <td width="700" height="44" valign="top" > <!--#include file="Middle.Asp"-- > </td >
<td width="2" > </td >
</tr >
</table >
<%If Req("Mode")="" Then% >
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr >
<td > <table border="1" align="center" cellpadding="0" cellspacing="0" style="width:760px;border-collapse:collapse; border-top:none;" >
<tr height="38" align="center" style="background: url(../images/nav-bg2.jpg);border-top:none;" >
<td width="29" style="border-top:none;" > <a href="Admin_Main2.asp?paixu=UID" >ID </a > </td >
<td width="75" style="border-top:none;" >用户名称 </td > ..........以下代码省略
<!--#include file="Conn.Asp"-- >
<!--#include file="Page.Asp"-- > <%
If Session(SessionVAR)="" Then
Call Msgs("未登陆!","Admin_Login.Asp")
End If
Select Case request("Action")
Case "Ispass"
If Req("UserID") < >"" And Req("mIsPass") < >"" Then
If Req("mIsPass")=1 Then
TsqlStr = ", UserPower=UserPower ,WebUrlON=1"
Else
TsqlStr = ""
End If
'Response.Write Req("UserID")&"V:"&Req("mIsPass")&"V:"&Req("Page")
'Response.End
Conn.Execute("Update Member Set UserIspass =" & Req("mIsPass") & " " & TsqlStr & " Where ID=" & CLng(Req("UserID")) & "")
Response.Redirect "Admin_Main.Asp?Page=" & Request("Page") & ""
End If
Case "Del"
SQLdel="DELETE from Member Where ID=" & CLng(Req("ID"))
Conn.execute(SQLdel)
Response.Redirect "Admin_Main.Asp"
Case "LoginOut"
Session(SessionVAR)= Empty
Call Msgs("管理退出成功!","../Index.asp")
Case "UserModify"
Conn.Execute("Update Member Set UserPower = '" & Req("UserPower") & " ',Userpassword = '" & Req("Userpassword") & " ', WebClick = '" & Req("WebClick") & " ', MainUrl = '" & Req("MainUrl") & " ', UserQuestion = '" & Req("UserQuestion") & " ',UserAnswer = '" & Req("UserAnswer") & " ',UserQQ = '" & Req("UserQQ")&" ',UserClass= '"&Req("UClass")& " ',UserMail = '" & Req("UserMail") & " ' Where ID=" & Req("UserID") & "")
Response.Redirect "Admin_Main.Asp"
End Select
% >
<HTML >
<HEAD >
<title >后台管理 ¦ <%=SiteVer% > </title >
<link href="../images/css.css" rel="stylesheet" type="text/css" >
<META http-equiv="Content-Type" content="text/html; charset=gb2312" > <SCRIPT LANGUAGE="JavaScript" >
function confirmdel(id){
if (confirm("删除数据是不可恢复的,确认删除嘛?"))
window.location.href="?Action=Del&ID="+id
}
</SCRIPT >
</HEAD >
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="head.asp" -- > <table width="778" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr background="image/nav-bg.jpg" >
<td height="49" background="image/nav-bg.jpg" > </td >
</tr >
<tr >
<td valign="top" > <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr > <td width="700" height="44" valign="top" > <!--#include file="Middle.Asp"-- > </td >
<td width="2" > </td >
</tr >
</table >
<%If Req("Mode")="" Then% >
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr >
<td > <table border="1" align="center" cellpadding="0" cellspacing="0" style="width:760px;border-collapse:collapse; border-top:none;" >
<tr height="38" align="center" style="background: url(../images/nav-bg2.jpg);border-top:none;" >
<td width="29" style="border-top:none;" > <a href="Admin_Main2.asp?paixu=UID" >ID </a > </td >
<td width="75" style="border-top:none;" >用户名称 </td > ..........以下代码省略
http://www.qcdexpress.com/mytemp/conn.txt
http://www.qcdexpress.com/mytemp/admin_main.txt这是我的三个源代码文件
大伙帮忙看看conn 是SQLSERVER数据库连接
page是分页文件
admin_main 是管理员管理用户的界面 里面包含了page页面
二度网络-柠檬(9143765) 21:48:26
麻烦大伙帮我看看 很急哦`~` 感激ing`~