<% '检查用户权限 call checkuser("会员管理") %> <% strCode=request.QueryString("code") Select case strCode case "0" strTitle="普通会员" case "1" strTitle="VIP会员" end Select %> <% '取指定ID的信息出来编辑 strSQL="select Top 1 * from web_contract Where c_code=" & strCode & " And m_id=" & WebUserID set rs=server.CreateObject ("ADODB.Recordset") rs.open strSQL,conn,1,1 if rs.recordcount<=0 then '如果没有则先创建 rs.close conn.execute "Insert Into web_contract(c_code,m_id) Values(" & strCode & "," & WebUserID & ")",0,1 set rs=server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 end if strContent=trim(rs("c_content")) rs.close HtmlEditContent = strContent EditorHeight = "90%" %> 会员注册协议-<%=strTitle%>
::会员注册协议-<%=strTitle%>
<%=strTitle%> 用户服务条款