后台管理会员的ID号做成像QQ号，会员可以用ID号登陆网站。

KS.User.asp注册用户管理UserID做成像QQ号。

*****************************

'判断目前系统是否开启为只UserID号登陆,当初没有设想好，这里需要再弄一次，

Set rs=Server.CreateObject("adodb.recordSet")

rs.open "select * from [PPst_UserConfig] where ID=1",conn,1,1

IsUserName=rs("UserName")

rs.close

'取出用户表中最大的UserID号

Set rs=Server.CreateObject("adodb.recordSet")

rs.open "select UserID from [PPst_User] where UserID= (Select Max(UserID) from [PPst_User])",conn,1,1

UserID=rs("UserID")+1

rs.Close



'准备写入数据库

Set rs=Server.CreateObject("adodb.recordSet")

rs.open "select * from [PPst_User] ",conn,1,3

rs.AddNew

rs("UserID")=UserID



If IsUserName=0 then

  rs("UserName")=UserID

Else

  rs("UserName")=UserName

End IF

* PPst_1="<li>"&UserInfo&"<li>你的UserID号为："&UserID&"　请牢记该号码"

Call ShowInfo(PPst_1,1)

If UserCheck=0 then

  response.cookies("PPst_UserName")=UserName

  response.cookies("PPst_Level")=Level

  Session("PPst_UserName")=UserName

  Session("PPst_Level")=Level

End If

response.End()

rs.Close

end if

*<%

If IsUserName=0 then

  response.Write "UserID号"

Else

  response.Write "用户名"

End If%>

</td>

    <td width="428" class="xiabianlan">

<%

If IsUserName=0 then

  response.Write "系统将为你自动分配..."

Else%>

*UserID=rs("UserID")

用户 [ <b><%

  if IsUserName =0 then response.Write UserID

  if IsUserName =1 or IsUserName =2 then response.Write User_Name

  %></b> ] <%if IsUserName =2 then response.Write "[ UserID号："&UserID&" ]"%>

*<%If IsUserName<>1 then%>

    <td align="center" class="xiabianlan"><a href=PPst_View.asp?ID=<%=rs("ID")%> target="_blank"><%=rs("UserID")%></a></td>

    <%End If

   If IsUserName<>0 then%>

   <td align="center" class="xiabianlan"><a href=PPst_View.asp?ID=<%=rs("ID")%> target="_blank"><%=rs("UserName")%></a></td>

   <%End If%>

*****************************

Set rs=Server.CreateObject("adodb.recordSet")

rs.open "select * from [PPst_UserConfig] where ID=1",conn,1,3

IsUserName=rs("UserName")

rs.Close

Conn.Close

%>

<tr>

    <td width="116" height="20" align="center" bgcolor="#EBFAEE" class="xiabianlan">启用</td>

    <td width="428" class="xiabianlan">

<input type="radio" name="UserName" Value="1" <%if IsUserName=1 then response.write "Checked"%>/>用户名

<input type="radio" name="UserName" Value="0" <%if IsUserName=0 then response.write "Checked"%>/>UserID号

<input type="radio" name="UserName" Value="2" <%if IsUserName=2 then response.write "Checked"%>/>二者都显示</td>

  </tr>