📄 aa_user.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
         "<TD HEIGHT=30 CLASS=Table8>真实姓名：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_UserName TYPE=text VALUE='" & Rs_edit("User_UserName") & "' id=User_UserName size=20>　　在本站订购产品的收货人姓名</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>联系地址：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Ress TYPE=text VALUE='" & Rs_edit("User_UserRess") & "' id=User_Ress size=30>　　如果其有订购产品，我们将按此地址给他发货</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>邮政编码：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Code TYPE=text VALUE='" & Rs_edit("User_UserCode") & "' id=User_Code size=10></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>联系电话：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=User_Tel TYPE=text VALUE='" & Rs_edit("User_UserTel") & "' id=User_Tel size=30></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>支付方式：</TD>"&_
         "<TD CLASS=Table8><select NAME='User_Pay'>"
         Set Rs=server.createobject("adodb.recordset")
         Sql="Select * from Tx_Give where Pay_Name<>''"
         Rs.open Sql,Conn,1,1
         while Not Rs.eof
strIfus = strIfus & "<OPTION VALUE='" & Rs("Give_Id") & "'"
                    IF Rs_edit("User_shopPay")=Rs("Give_Id") THEN
strIfus = strIfus & "selected"
					End IF
strIfus = strIfus & ">" & Rs("Pay_Name") & "</OPTION>"
                    Rs.moveNext
                    wend
                    Rs.close
                    Set Rs=Nothing
strIfus = strIfus & "</select></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>收货方式：</TD>"&_
                    "<TD CLASS=Table8><select NAME='User_Give'>"
                    Set Rs=server.createobject("adodb.recordset")
                    Sql="Select * from Tx_Give where Give_Name<>''"
                    Rs.open Sql,Conn,1,1
                    while Not Rs.eof
strIfus = strIfus & "<OPTION VALUE='" & Rs("Give_Id") & "'"
                    IF Rs_edit("User_shopGive")=Rs("Give_Id") THEN
strIfus = strIfus & "selected"
					End IF
strIfus = strIfus & ">" & Rs("Give_Name") & "</OPTION>"
                    Rs.moveNext
                    wend
                    Rs.close
                    Set Rs=Nothing
strIfus = strIfus & "</select></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>QQ号码：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Qq TYPE=text VALUE='" & Rs_edit("User_UserQq") & "' id=User_Qq size=15></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>MSN：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Msn TYPE=text VALUE='" & Rs_edit("User_UserMsn") & "' id=User_Msn size=30></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>个人主页：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Web TYPE=text VALUE='" & Rs_edit("User_UserWeb") & "' id=User_Web VALUE='http://' size=30></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=30 CLASS=Table8>单位名称：</TD>"&_
                    "<TD CLASS=Table8><INPUT NAME=User_Ltd TYPE=text VALUE='" & Rs_edit("User_UserLtd") & "' id=User_Ltd size=30></TD>"&_
                    "</TR>"&_
                    "<TR>"&_
                    "<TD HEIGHT=50 CLASS=Table8>用户头像：</TD>"&_
                    "<TD CLASS=Table8><select NAME='Picture' size='1'  id='Picture' ALIGN='absmiddle' CLASS='submit_all' onChange='document.all.idface.src=options[selectedIndex].value;'>"
                    Set Rs_cm=server.createobject("adodb.recordset")
                    Sql="Select * from Tx_Picture Order By Picture_Id"
                    Rs_cm.open Sql,Conn,1,1
                    while not Rs_cm.eof
strIfb = strIfb & "<OPTION VALUE='" & Rs_cm("Picture_Url") & "'"
                    IF Rs_edit("User_Picture")=Rs_cm("Picture_Url") THEN
strIfb = strIfb & "selected"
					End IF
strIfb = strIfb & ">" & Rs_cm("Picture_Name") & "</OPTION>"
                    Rs_cm.movenext
                    wend
                    Rs_cm.close
                    Set Rs_cm=Nothing
					Picture=Rs_edit("User_Picture")
strIfb = strIfb & "</select>　　　　<img hspace=5 src=" & Picture & " vspace='3' BORDER='0' id='idface' ALIGN='absmiddle'></TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 CLASS=Table8>个人简介：</TD>"&_
                  "<TD CLASS=Table8><TEXTAREA NAME=User_UserContent cols=44 rows=5 id=User_UserContent>" & Rs_edit("User_UserContent") & "</TEXTAREA>　　HTML支持</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 CLASS=Table8>个性签名：</TD>"&_
                  "<TD CLASS=Table8><TEXTAREA NAME=User_UserSigns cols=44 rows=5 id=User_UserSigns>" & Rs_edit("User_UserSigns") & "</TEXTAREA>　　HTML支持</TD>"&_
                  "</TR>"&_
                  "<TR>"&_
                  "<TD HEIGHT=30 CLASS=Table8>用户审核：</TD>"&_
                  "<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=User_Flag VALUE='1' " & checked1 & "> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=User_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
                  "</TR>"&_
                  "<TR ALIGN=center>"&_
                  "<TD HEIGHT=35 colspan=2 CLASS=Table8><INPUT NAME=ok CLASS=submit_all TYPE=submit id=ok VALUE=提交资料> "&_
                  "<INPUT NAME=cl TYPE=reset id=cl CLASS=submit_all VALUE=重新输入></TD>"&_
                  "</TR>"&_
                  "</form>"&_
                  "</TABLE>"
Call Page_aTable(0,0)
case "Manage"
Call Page_AdminFlag(53)
Page_BootmName="用户列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Selectkey=request.form("Selectkey")
Set Rs_Manage=server.Createobject("Adodb.Recordset")
select case xSelect
case ""
Sql="Select * from Tx_User order by User_regDate desc"
case "TodayReg"
Sql="Select * from Tx_User Where DateDiff('d',User_regDate,Now())=0 order by User_regDate desc"
case "GroudId"
Sql="Select * from Tx_User Where User_Group=" & Id & " order by User_regDate desc"
case "UserName"
IF request.form("Usercl")=1 THEN
Sql="Select * from Tx_User Where User_Name='" & Selectkey & "' order by User_regDate desc"
Else
Sql="Select * from Tx_User Where User_Name like '%" & Selectkey & "%' order by User_regDate desc"
End IF
End select
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD WIDTH=20% CLASS=Table6>用户名</TD><TD WIDTH=12% CLASS=Table6>所属用户组</TD><TD WIDTH=8% CLASS=Table6>登陆次数</TD><TD WIDTH=17% CLASS=Table6>最后登陆时间</TD><TD CLASS=Table6>最后登陆IP</TD><TD WIDTH=22% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("User_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
End IF
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_Groud where Groud_Id=" & Rs_Manage("User_Group")
Rs.open Sql,Conn,1,1
User_Group=Rs("Groud_Name")
Rs.close
Set Rs=Nothing
strIfa = strIfa & "<form NAME=inbox method=post action=As_User.asp?Action=Delall>"&_
                  "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
				  "<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("User_Id") & "</TD>"&_
                  "<TD><A HREF=Aa_User.asp?Action=Edit&Id=" & Rs_Manage("User_Id") & ">" & Rs_Manage("User_Name") & "</A></TD>"&_
                  "<TD ALIGN=center>" & User_Group & "</TD>"&_
                  "<TD ALIGN=center>" & Rs_Manage("User_LoginCount") & "</TD>"&_
                  "<TD>" & Rs_Manage("User_LoginDate") & "</TD>"&_
                  "<TD>" & Rs_Manage("User_LoginIp") & "</TD>"&_
                  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_User.asp?Action=Edit&Id=" & Rs_Manage("User_Id") & ">修改</A> | "&_
                  "<A HREF=As_User.asp?Action=Flag&Id=" & Rs_Manage("User_Id") & ">" & TitleFlag & "</A> | "&_
                  "<A HREF=As_User.asp?Action=Del&Id=" & Rs_Manage("User_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT CLASS=radio_all TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("User_Id") & ">"&_
                  "</TD>"&_
                  "</TR>"
Rs_Manage.movenext
wend 
End IF
Rs_Manage.close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=30 colspan=7 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox NAME=chkall CLASS=radio_all VALUE=on onclick=CheckAll(this.form)>"&_
                  " 选择全部　"&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 删除 ' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=FlagOk VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='As_User.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
                  "<INPUT TYPE=submit CLASS=submit_all NAME=FlagNo VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='As_User.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
				  "<INPUT TYPE=submit CLASS=submit_all NAME=To VALUE='将用户移动到' onClick=" & CHR(34) & "this.form.action='As_User.asp?Action=EditClass';this.form.submit()" & CHR(34) & "> <select NAME=NewUser_Group id=NewUser_Group><OPTION VALUE='' selected>请选择用户组</OPTION>"
strIfus = "</select></TD></TR>"&_
         "</form>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "<form NAME=Search method=post action='Aa_User.asp?Action=Manage&xSelect=UserName'><TR>"&_
         "<TD HEIGHT=35 colspan=7 ALIGN=center CLASS=Table8>查询用户：<INPUT NAME=Selectkey TYPE=text id=Selectkey> <INPUT TYPE='checkbox' NAME='Usercl' CLASS=radio_all VALUE='1' checked>精确查询 <INPUT CLASS=submit_all TYPE=submit NAME=SearchOk VALUE=' 查讯 '></TD></TR></form>"&_
         "</TABLE>"
Call Page_aTable(0,1)
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -