newstar - 2008-4-19 13:51:00
\Admin\SysAdmin_SetPop.asp
8行处
Dim Conn,strShowErr,rs,ar_admin,str_PopList,str_PopGroup
MF_Default_Conn
MF_Session_TF
'本页使用权限判断
If Not MF_Check_Pop_TF("MF_Pop") Then Err_Show
Set rs= Server.CreateObject(G_FS_RS)
rs.open "select Admin_Add_Admin,Admin_Is_Super,Admin_Name,Admin_Pop_List,Admin_Parent_Admin,Admin_PopGroup From FS_MF_Admin where Id="&NoSqlHack(Request.QueryString("AdminId")),Conn,1,3
ar_admin = rs(2)
str_PopList=rs(3)
str_PopGroup=rs(5)
314左右 （免费版269行左右）
<option value="1" <%if str_PopGroup=1 then Response.Write"selected" end if%> >超级管理员</option>
<option value="2" <%if str_PopGroup=2 then Response.Write"selected" end if%> >普通管理员</option>
<option value="3" <%if str_PopGroup=3 then Response.Write"selected" end if%> >总编辑</option>
<option value="4" <%if str_PopGroup=4 then Response.Write"selected" end if%> >责任编辑</option>
<option value="5" <%if str_PopGroup=5 then Response.Write"selected" end if%> >记者</option>
<option value="0" <%if str_PopGroup=0 then Response.Write"selected" end if%> >自定义管理员</option>
ttao - 2008-4-19 20:06:00
:default7: 收到
cyxjq - 2008-4-21 10:16:00
这个是ＳＱＬ版的！:default7: