<% '检查用户权限 call checkuser("友情链接") %> <% strSQL="select * from web_link where 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_link(m_id) Values(" & WebUserID & ")",0,1 set rs=server.CreateObject("ADODB.RecordSet") rs.open strSQL,conn,1,1 end if strContent=trim(rs("wl_content")) rs.close HtmlEditContent = strContent EditorHeight = 500 %> 友情链接编辑
::友情链接编辑