userps.asp

好用的贴吧源代码

<%
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖        论坛：www.fywen.com/post        ‖
'├========================================┤

'----------------------------------------------------------

'==================================================
'‖吧主管理验证
'‖过程名：Admin_User
'==================================================
sub Admin_User()
username = session("uesrname")
password = session("userpwd")
If username = "" or password ="" Then
response.write "用户登陆超时或已经退出，请重新登陆"
response.write "<Meta http-equiv='Refresh' Content='2; Url=Login.Asp'>"
response.write "<p><font style='font-size:9pt'>三秒钟后将自动跳转到登陆页面</font></p>"
response.End()
End if
End Sub
'============================================
'‖管理员验证
'‖过程名：Admin_Admin
'============================================
sub Admin_Admin()
username = session("uesrname")
password = session("userpwd")
If username = "" or password ="" Then
%>
    <script language="javascript">
       alert("用户名、密码输入错误或登陆超时！")
       document.location="admin_login.Asp"
    </script>
<%
response.End()
End if
End Sub

'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖会员登陆验证
'‖过程名：Vip_User
'============================================
sub Vip_User()
username = session("uesrname")
password = session("userpwd")
If Not username = "" or Not password ="" Then
session("uesrname") = username
session("userpwd") = password
 Set Rs= server.createobject("adodb.recordset")
        Sql="select * from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"
        Rs.Open Sql,Conn
 If Rs.eof Then
     session("name")=""
     session("password")=""
     response.write "请不要尝试非法登陆"
     response.write "<Meta http-equiv='Refresh' Content='2; Url=Login.Asp'>"
     response.write "<p><font style='font-size:9pt'>三秒钟后将自动跳转到登陆页面</font></p>"
     response.End()
 End If
 End If
End Sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖贴吧管理员登陆验证
'‖过程名：Vippost_User
'‖参数：post---------贴吧名称
'‖      postid---------帖子ID
'============================================
sub Vippost_User(post,postid,hot,top)
   If session("uesrname") <> "" or password <>"" Then
      username = session("uesrname")
      password = session("userpwd")
       If username <> "" or password <>"" Then
         session("uesrname") = username
         session("userpwd") = password
         Set Rs= server.createobject("adodb.recordset")
         Sql="select * from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"
         Rs.Open Sql,Conn
	      If Rs.eof Then
           session("name")=""
           session("password")=""
           response.write "请不要尝试非法登陆"
           response.write "<Meta http-equiv='Refresh' Content='2; Url=Login.Asp'>"
           response.write "<p><font style='font-size:9pt'>三秒钟后将自动跳转到登陆页面</font></p>"
           response.End()
	      Else
            Response.Write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"
	        If Rs("postadmin") = post Or Rs("adminuser")="1" Then
	        Response.Write"<tr><td width=""40%"">管理选项：</td>"
			If top <> "1" Then
	        Response.Write"<td width=""15%""><a  onclick=""return confirm('确定要进行此操作？')"" href=""Fywen_Delpost.Asp?Menu=Toppost&postid="&postid&"&post_url="&Post_url&""" class=""index_titlesize_1"">置顶</a></td>"
			Else
	        Response.Write"<td width=""15%""><a  onclick=""return confirm('确定要进行此操作？')"" href=""Fywen_Delpost.Asp?Menu=Toppost&postid="&postid&"&post_url="&Post_url&""" class=""index_titlesize_1"">取消置顶</a></td>"
			End If
			If hot <> "1" Then
			Response.Write"<td width=""15%""><a  onclick=""return confirm('确定要进行此操作？')"" href=""Fywen_Delpost.Asp?Menu=hotpost&Postid="&postid&"&post_url="&Post_url&""" class=""index_titlesize_1"">精品</a></td>"
			Else
			Response.Write"<td width=""15%""><a onclick=""return confirm('确定要进行此操作？')"" href=""Fywen_Delpost.Asp?Menu=hotpost&Postid="&postid&"&post_url="&Post_url&""" class=""index_titlesize_1"">取消加精</a></td>"
			End If
	        Response.Write"<td width=""15%""><a onclick=""return confirm('确定删除该贴与回复内容？')"" href=""Fywen_Delpost.Asp?Menu=delpost&Postid="&postid&""" class=""index_titlesize_1"">删除</a></td>"
		    End If
	        Response.Write"<td width=""15%"">"
			call post_edit(post,postid)
	        Response.Write"</td></tr></table>"
	     End If
	  End If
   End If
End sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖贴吧管理员登陆验证
'‖过程名：Vipposts_User
'‖参数：post---------贴吧名称
'‖      postid---------帖子ID
'==============================================
sub Vipposts_User(post,postid,posts)
   If session("uesrname") <> "" or password <>"" Then
      username = session("uesrname")
      password = session("userpwd")
      Response.Write"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""><tr>"
       If username <> "" or password <>"" Then
         session("uesrname") = username
         session("userpwd") = password
         Set Rs= server.createobject("adodb.recordset")
         Sql="select * from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"
         Rs.Open Sql,Conn
	      If Rs.eof Then
           session("name")=""
           session("password")=""
           response.write "请不要尝试非法登陆"
           response.write "<Meta http-equiv='Refresh' Content='2; Url=Login.Asp'>"
           response.write "<p><font style='font-size:9pt'>三秒钟后将自动跳转到登陆页面</font></p>"
           response.End()
	      Else
	        If Rs("postadmin") = post Or Rs("adminuser")="1" Then
	          Response.Write"<td width=""42%"">管理选项：</td><td width=""18%""><a onclick=""return confirm('确定删除该贴内容？')"" href=""Fywen_Delpost.Asp?Menu=delposts&postsid="&postid&"&Postid="&posts&"&post_url="&Post_url&""" class=""index_titlesize_1"">删除</a></td>"
		    End If
	     End If
	          Response.Write"<td width=""17%"">"
			  call posts_edit(post,postid)
			  Response.Write"</td>"
	          Response.Write"<td width=""23%""></td></tr></table>"
	  End If
   End If
End sub	
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖回复编辑验证函数
'‖过程名：posts_edit
'‖参数：  post_id------帖子ID
'============================================	
Sub posts_edit(post_p,post_id)
    If session("uesrname") <> "" or password <>"" Then
       username = session("uesrname")
       password = session("userpwd")
       Set Rs= server.createobject("adodb.recordset")
       Sql="select [username] from [retitle] where id="&post_id
       Rs.Open Sql,Conn,1,1
       Set Rs1= server.createobject("adodb.recordset")
       Sql1="select [postadmin],[adminuser] from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"
       Rs1.Open Sql1,Conn
	   if rs("username")=session("uesrname") and User_edit="1" Or Rs1("postadmin") = post_p Or Rs1("adminuser")="1" Then
       response.Write("<a onclick=""return confirm('确定编辑该贴内容？')"" href=""Post_Edit.Asp?Menu=editposts&Postid="&post_id&"&post_url="&Post_url&""" class=""index_titlesize_1"">编辑</a>")
	   End If
    End If
	rs1.close
	set rs1=nothing
End Sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖主贴编辑验证函数
'‖过程名：posts_edit
'‖参数：  post_id------帖子ID
'============================================	
Sub post_edit(post_p,post_id)
    If session("uesrname") <> "" or password <>"" Then
       username = session("uesrname")
       password = session("userpwd")
       Set Rs= server.createobject("adodb.recordset")
       Sql="select [username] from [title] where id="&post_id
       Rs.Open Sql,Conn,1,1
       Set Rs1= server.createobject("adodb.recordset")
       Sql1="select [postadmin],[adminuser] from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"
       Rs1.Open Sql1,Conn
	   if rs("username")=session("uesrname") and User_edit="1" Or Rs1("postadmin") = post_p Or Rs1("adminuser")="1" Then
       response.Write("<a onclick=""return confirm('确定编辑该贴内容？')"" href=""Post_Edit.Asp?Menu=editpost&Postid="&post_id&"&post_url="&Post_url&""" class=""index_titlesize_1"">编辑</a>")
	   End If
    End If
	rs1.close
	set rs1=nothing
End Sub
'----------------------------------------------------
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖显示主贴是否编辑函数
'‖过程名：pop_edit()
'‖参数：  post_id------帖子ID
'============================================	
sub pop_edit(post_id)
 if Edit_date="1" then
 set rs= server.createobject("adodb.recordset")
 sql= "select [body] from [edit] where [postid]="& post_id &" and [pors]='post'"
 rs.Open sql,conn,1,1
 if not rs.eof then
 response.Write("<tr><td height=""25"" colspan=""5""><div align=""right"">"&rs("body")&"&nbsp;&nbsp;&nbsp;</div></td></tr>")
 end if
 rs.close
 set rs=nothing
 end if
End Sub
'===========================================
'        ╔━═━═━═━═━═━╗          
'        ┃   枫叶在线版权所有   ┃            
'        ╚━═━═━═━Fywen ━╝ 
'============================================   
'‖显示回复是否编辑函数
'‖过程名：pops_edit()
'‖参数：  post_id------帖子ID
'============================================	
sub pops_edit(post_id)
 if Edit_date="1" then
 set rs= server.createobject("adodb.recordset")
 sql= "select [body] from [edit] where [postid]="& post_id &" and [pors]='posts'"
 rs.Open sql,conn,1,1
 if not rs.eof then
 response.Write("<tr><td height=""25"" colspan=""5""><div align=""right"">"&rs("body")&"&nbsp;&nbsp;&nbsp;</div></td></tr>")
 end if
 rs.close
 set rs=nothing
 end if
End Sub
%>