⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 avatar.asp

📁 很好的一个论坛原代码
💻 ASP
字号:
<%
if not session("sfadmin") then response.redirect("welcome.asp")
%>
<!--#INCLUDE FILE="../inc/db_inc.asp"-->
<!--#INCLUDE FILE="../inc/md5_inc.asp"-->
<!--#INCLUDE FILE="../inc/char_inc.asp"-->
<HTML>
<HEAD>
<TITLE>Untitled Document</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" href="image/style.css" type="text/css">
</HEAD>

<BODY bgcolor="#FFFFFF" text="#000000" leftmargin="10" topmargin="10">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn
%>
<!--#INCLUDE FILE="checkadmin.asp"-->
<%
if request("mode") = "del" then

	Conn.Execute("delete from sf_avatar where avatarid=" & chksql(request("id")))
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
  <TR> 
    <TD bgcolor="#D1E3BF" align="center">已经删除该头像</TD>
  </TR>
</TABLE>
<%

else
%>
<TABLE width="100%" border="0" cellspacing="1" cellpadding="4" align="center">
 <TR bgcolor="#D1E3BF" align="center"> 
   <TD colspan="4"><B>用户头像设置</B></TD>
 </TR>
 <TR bgcolor="#DDDDDD" align="center">
   <TD width="40%">头像别名</TD><TD width="40%">头像图片文件 (<A href="avatar.asp?mode=showimg"><b>显示</b></A>&nbsp;<A href="avatar.asp"><b>关闭</b></A>)</TD><TD width="10%"></TD><TD></TD>
 </TR>
<%
	StrSql = "select * from sf_avatar"
	Set rs = Conn.Execute(StrSql)
	if not(rs.bof or rs.eof) then
		i = 0
		do until rs.eof
			if i mod 2 = 0 then
				response.write "<TR bgcolor=""#FFFFFF"">"
			else
				response.write "<TR bgcolor=""#F5F5F5"">"
			end if
			response.write "<TD>" & rs("title") & "</TD><TD>" & rs("avatarpath")
			if request("mode") = "showimg" then
				response.write " &nbsp; <img src=""../image/avatar/" & rs("avatarpath") & """>"
			end if
			response.write "</TD><TD><A href=""editavatar.asp?id=" & rs("avatarid") & """><B>编辑</B></A></TD><TD><A href=""avatar.asp?mode=del&id=" & rs("avatarid") & """>删除</A></TD></TR>"
			rs.MoveNext
			i = i + 1
		loop
	else
		response.write "<TR bgcolor=""#FFFFFF""><TD colspan=""4"">当前无任何头像</TD></TR>"
	end if

%>
 <TR bgcolor="DDDDDD" align="center"> 
   <TD colspan="4"><A href="addavatar.asp">添加新的头像</A></TD>
 </TR>
</TABLE>
<%
end if
%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -