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

📄 pop_profile.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线官方网站
'#	      http://BBS.ChinaXP.Net     中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<%
	Dim strFolderImg
	Randomize
	strFolderImg = (Int(5 * Rnd))		' ### 产生随机数
%>
<% if not(strUseExtendedProfile) then %>
<!--#INCLUDE FILE="inc_top_short.asp" -->
<% else %>
<!--#INCLUDE FILE="inc_top.asp" -->
<% end if %>
<body background="images/bg.gif">

	<TD width="70%" align="left" valign="top">
<div align="center">
  <center>
<TABLE border="0" width="85%" background="images/bg.gif" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
  <TR>
    <TD width="33%" align="left" nowrap background="images/bg.gif"><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;编辑注册资料
</FONT></TD>
  </TR>
</TABLE>
  </center>
</div>
</TD>
</TR>
</TABLE>

<%
' ### 检查字符是否为数字类型
function isInteger(para)
	on error resume next
	dim str
	dim l,i
	if isNUll(para) then
		isInteger=false
		exit function
	end if
	str=cstr(para)
	if trim(str)="" then
		isInteger=false
		exit function
	end if
	l=len(str)
	for i=1 to l
		if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
			isInteger=false
			exit function
		end if
	next
	isInteger=true
	if err.number<>0 then err.clear
end function
%>

<%
if Request.QueryString("mode") = "Moderator" then
select case Request.QueryString("action")
case "del"
	strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " SET M_LEVEL = 1 "
	strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID")
	my_Conn.Execute(strsql)
case "add"
	strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " SET M_LEVEL = 2 "
	strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID")
	my_Conn.Execute(strsql)
end select %>
<meta http-equiv="Refresh" content="0; URL=members.asp">
<% end if
if strAuthType = "nt" then
	if ChkAccountReg() <> "1" then %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<b>注意：</b>此用户帐号尚未注册所以没有会员资料。<br>
如果这是你的帐号，请<a href="register.asp?mode=Register">按这里</a>注册。
</font></p>
<!--#INCLUDE FILE="inc_adv.asp" -->
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
		Response.End
	end if
end if
%>
<%
select case Request.QueryString("mode")

	case "display" '## Display Profile

		'## Forum_SQL
		strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME "
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME, " & strMemberTablePrefix & "MEMBERS.M_EMAIL "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME, " & strMemberTablePrefix & "MEMBERS.M_LASTNAME "
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM"
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY "
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FACE_WIDTH "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FACE_HEIGHT "
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1, " & strMemberTablePrefix & "MEMBERS.M_LINK2 "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE, " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX, " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION "
		strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG"
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES, " & strMemberTablePrefix & "MEMBERS.M_LNEWS "
		strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE, " & strMemberTablePrefix & "MEMBERS.M_BIO "
		strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
		strSql = strSql & " WHERE MEMBER_ID=" & Request.QueryString("id")

		set rs = my_Conn.Execute(strSql)
		
		strMyHobbies = rs("M_HOBBIES")
		strMyLNews = rs("M_LNEWS")
		strMyQuote = rs("M_QUOTE")
		strMyBio = rs("M_BIO")
		Set HideMail = rs("M_HIDE_EMAIL")
	
		if strUseExtendedProfile then
			strColspan = " colspan=""2"" "
			strIMURL1 = "javascript:openWindow('"
			strIMURL2 = "')"
		else
			strColspan = ""
			strIMURL1 = ""
			strIMURL2 = ""
		end if
		mLev = cint(ChkUser2(Request.Cookies(strUniqueID & "User")("Name"), Request.Cookies(strUniqueID & "User")("Pword")))
%>
<div align="center">
  <center>

	<table border="0" width="<% Response.Write strTableWidth  %>" cellspacing="0" cellpadding="0" bgColor="<% =strPageBGColor %>" style="border-collapse: collapse" bordercolor="#111111">
	  <tr>
	    <td bgColor="<% =strPageBGColor %>" align=center background="images/bg.gif">
	    <p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">用户资料<br></font></p>
	    </td>
	  </tr>
	  <tr>
	  	 <td bgColor="<% =strPageBGColor %>" align=center background="images/bg.gif">
	  		<table border="0" width="95%" cellspacing="0" cellpadding="4" align=center>
	  		<tr>
<% if mLev = 4 then %>
		<td valign=top align=left bgcolor="<% =strHeadCellColor %>">&nbsp;<b><a href="pop_profile.asp?mode=Modify&ID=<% =rs("MEMBER_ID") %>&name=<% =ChkString(rs("M_NAME"),"urlpath") %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><% =ChkString(rs("M_NAME"),"display") %></font></a></b></td>
<% else %>				
				<td valign=top align=left bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>&nbsp;<% =ChkString(rs("M_NAME"),"display")  %></b></font></td>
<% end if%>
				<td valign=top align=right bgcolor="<% =strHeadCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">注册日期：<% =ChkDate(rs("M_DATE")) %>&nbsp;</font></td>
			</tr>
			</table>
		</td>
	  </tr>
	  <tr>
	    <td bgcolor="<% =strPageBGColor %>" align=left valign=top background="images/bg.gif">
			<table border="0" width="95%" cellspacing="1" cellpadding="0" align="center" bgcolor="<% =strPageBGColor %>">
				<tr bgcolor="<% =strPageBGColor %>">
<%
			if strUseExtendedProfile then
%>
				  <td width="40%" bgColor="<% =strPageBGColor %>" valign=top>
				    <table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="<% =strTableBorderColor %>">								
<%					if strPicture = "1" then %>
					 <tr>
						<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;个人头像：</font></b></td>
					 </tr>
					 <tr>
 					    <td bgColor=<% =strPopUpTableColor %> align=center colspan="2">
<%							if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then %>
<%								if (lcase(left(rs("M_PHOTO_URL"), 7)) <> "http://") and (lcase(left(rs("M_PHOTO_URL"), 8)) <> "https://") and (rs("M_PHOTO_URL") <> "") then %>
									<img src="<% =rs("M_PHOTO_URL") %>" border=0 hspace="2" vspace="2">
<%								else %>
									<img src="<% =rs("M_PHOTO_URL") %>" width="<% =RS("M_FACE_WIDTH") %>" height="<% =RS("M_FACE_HEIGHT") %>" border=0 hspace="2" vspace="2">
<%								end if %>
<%							else %>
								<img src="<% =strImageURL %>no_photo.gif" alt="没有设定图片" width="150" height="150" border=0 hspace="2" vspace="2"></a>
<%							end if %>
					    </td>
					</tr>
<%					end if
					' strPicture
%>
					 <tr>
						<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">&nbsp;联系资料&nbsp;</font></b></td>
					 </tr>
					 <tr>
						<td bgColor="<% =strPopUpTableColor %>" align=right width="10%" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> 电子邮件：&nbsp;</font></b></td>
<% if(HideMail = 0) then %>
						<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">&nbsp;<a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><% =ChkString(rs("M_EMAIL"), "display") %></a>&nbsp;</font></td>
<% else %>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"> 地址隐藏  </font></td>
<% end if %>
					</tr>
<%				if strICQ = "1" then
					if Trim(rs("M_ICQ")) <> "" then %>
					<tr>
						<td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">ICQ号码：&nbsp;</font></b></td>
						<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =strIMURL1 %>pop_messengers.asp?mode=ICQ&ICQ=<% =ChkString(rs("M_ICQ"), "urlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "urlpath") %><% =strIMURL2 %>"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =ChkString(rs("M_ICQ"), "urlpath") %>&img=5" border="0" align="absmiddle"><% =ChkString(rs("M_ICQ"), "urlpath") %></a></font></td>
					</tr>
<%					end if
				end if
				if strYAHOO = "1" then
					if Trim(rs("M_YAHOO")) <> "" then %>
					<tr>
						<td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">OICQ号码：&nbsp;</font></b></td>
						<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% =rs("M_YAHOO") %>"  target=_blank><img align=absmiddle width=16 height=16 src="<% Response.Write strImageURL %>oicq.gif" border=0>&nbsp;<% =rs("M_YAHOO") %></a></font></td>
					</tr>
<%					end if
				end if
				if strAIM = "1" then
					if Trim(rs("M_AIM")) <> "" then %>
					<tr>
						<td bgColor=<% =strPopUpTableColor %> align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">AIM号码：&nbsp;</font></b></td>
						<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% =strIMURL1 %>pop_messengers.asp?mode=AIM&AIM=<% =ChkString(rs("M_AIM"), "urlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "urlpath") %><% =strIMURL2 %>"><% =ChkString(rs("M_AIM"), "urlpath") %></a>&nbsp;</font></td>
					</tr>
<%					end if
				end if

				if strRecentTopics = "1" then
					strStartDate = DateToStr(dateadd("d", -30, strForumTimeAdjust))
					'## Forum_SQL - Find all records for the member
					strsql = "SELECT TOP 10 " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, "
					strsql = strsql & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_STATUS,  " & strTablePrefix & "TOPICS.T_LAST_POST,  " & strTablePrefix & "TOPICS.T_REPLIES  "
					strsql = strsql & " FROM ((" & strTablePrefix & "FORUM LEFT JOIN " & strTablePrefix & "TOPICS "
					strsql = strsql & " ON " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID) LEFT JOIN " & strTablePrefix & "REPLY "
					strsql = strsql & " ON " & strTablePrefix & "TOPICS.TOPIC_ID = " & strTablePrefix & "REPLY.TOPIC_ID) "
12345

⌨️ 快捷键说明

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