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

📄 inc_profile.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<%
 on error resume next
 %>

<table border="0" width="<% Response.Write strTableWidth %>" align="center" cellspacing="0" cellpadding="0" valign=top>
  <tr>
    <td bgColor="<% =strPageBGColor %>" align=center <% =strColspan %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>前面有 <FONT color=#ff0000 size="<% =strHeaderFontSize %>"><b>*</b></FONT> 的栏目都必须填写</b></font></td>
  </tr>
  <tr>
    <td bgcolor="<% =strPageBGColor %>" align=left valign=top>
<table border="0" width="100%" cellspacing="1" cellpadding="0" align="center">
<tr>
<%
if strUseExtendedProfile then
%>
  <td width="50%" bgColor=<% =strPopUpTableColor %> valign=top>
    <table border="0" width="100%" cellspacing="1" cellpadding="3" bgcolor="<% =strPopUpBorderColor %>">
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">联系方法</font></b></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT>电子邮件：</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT  name="Email" size="25" value="<% =RS("M_EMAIL") %>">
<INPUT type="hidden" name="Email2" value="<% =RS("M_EMAIL") %>">
</tr>
<!################### - kerrycode for Email List------>
<%if Request.QueryString("mode") = "goEdit" or Request.Querystring("mode") = "goModify" then
RECMAIL = RS("M_RECMAIL")
if RECMAIL = "1" then
YesNo = "No"
else
RECMAIL = "0"
YesNo = "Yes"
end if
%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">接受升级：</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
  <select name="RECMAIL" size="1">
  <option value="<%= RECMAIL %>" SELECTED>&nbsp;<% =YesNo%></option>
  <option value="0">&nbsp;是</option>
  <option value="1">&nbsp;否</option>
  </select>
 </font></td>
</tr>
 <% end if %>
<!################### - /kerrycode------>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right width="10%"" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">不显示信箱地址：</font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if (RS("M_HIDE_EMAIL") = 1) then %>
是<input type="radio" value="1" checked name="HideMail">&nbsp;&nbsp;否<input type="radio" value="0" name="HideMail"
<% else %>
是<input type="radio" value="1" name="HideMail">&nbsp;&nbsp;否<input type="radio" value="0" checked name="HideMail"
<% end if %>
</font></td>
</tr>
<%if strICQ = "1" then%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">ICQ号码：</font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="ICQ" size="25" value="<% =ChkString(RS("M_ICQ"), "display") %>"></font></td>
</tr>
<%end if
if strYAHOO = "1" then
%><tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">OICQ号码：</font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="YAHOO" size="25" value="<% =ChkString(RS("M_YAHOO"), "display") %>"></font></td>
</tr>
<%end if
if strAIM = "1" then
%><tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">AIM号码：</font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="AIM" size="25" value="<% =ChkString(RS("M_AIM"), "display") %>"></font></td>
</tr>
<%end if
if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then  %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>相关连结</b></font></td>
</tr>
<%if strHomepage = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人主页：</font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Homepage" size="25" value="<% if ChkString(RS("M_Homepage"), "display") <> " " and lcase(RS("M_Homepage")) <> "http://" then Response.Write(RS("M_Homepage")) else Response.Write("http://") %>"></font></td>
</tr>
<%end if
if strFavLinks = "1" then%>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">推荐连结：</font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Link1" size="25" value="<% if RS("M_LINK1") <> " " and lcase(RS("M_LINK1")) <> "http://" then Response.Write(ChkString(rs("M_LINK1"), "display")) else Response.Write("http://") %>"></font></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"></font></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Link2" size="25" value="<% if RS("M_LINK2") <> " " and lcase(RS("M_LINK2")) <> "http://" then Response.Write(ChkString(rs("M_LINK2"), "display")) else Response.Write("http://") %>"></font></td>
</tr>
<%end if
end if
%>
<%if strPicture = "1" then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">个性头像</font></b></td>
</tr>
<script language="javascript">
<!--
function showimage()
{
	//alert("./"+document.Form1.Photo_URL.options[document.Form1.Photo_URL.selectedIndex].value+".gif");
	document.images.useravatars.src = document.Form1.Photo_URL.options[document.Form1.Photo_URL.selectedIndex].value;
}

function ChangePic()
{
	if (document.Form1.MyFace.value=="") {
		alert("请你输入图片网址！")
		return false;
	}
	if (document.Form1.width.value!="" && (document.Form1.width.value >= 20 && document.Form1.width.value <= 80)) {
		document.images.useravatars.width = document.Form1.width.value;
	} else {
		document.images.useravatars.width = 32;
	}
	if (document.Form1.height.value!="" && (document.Form1.height.value >= 20 && document.Form1.height.value <= 80)) {
		document.images.useravatars.height = document.Form1.height.value;
	} else {
		document.images.useravatars.height = 32;
	}
	document.images.useravatars.src = document.Form1.MyFace.value;
	return true;
}
//-->
</script>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=center><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个性图片：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><select name="Photo_URL" size="1" onChange="showimage()">
<%
strPhotoURLTemp = ""
For dido = 0 To 124
	strPhotoURLTemp = strPhotoURLTemp & "<option"
	strPhotoURLTemp = strPhotoURLTemp & " value=""image/Image" & dido & ".gif"""
	if InStr(RS("M_PHOTO_URL"), dido) then
		strPhotoURLTemp = strPhotoURLTemp & " selected"
	end if
	strPhotoURLTemp = strPhotoURLTemp & ">Image" & dido & ".gif</option>" & vbcrlf
Next
Response.Write strPhotoURLTemp

	strPhotoURLTemp = RS("M_PHOTO_URL")
	if Request.QueryString("mode") = "Register" then
		strPhotoURLTemp = "image/Image124.gif"
	end if
%></select><IMG src="" border=0 width=52 height=0><img src="<% =strPhotoURLTemp %>" align="absmiddle" name="useravatars" border=0></TD>
</tr>
<%
	strPhotoURLTemp = ""
	if lcase(Left(RS("M_PHOTO_URL"), 7)) = "http://" or lcase(Left(RS("M_PHOTO_URL"), 8)) = "https://" then
		strPhotoURLTemp = RS("M_PHOTO_URL")
	end if
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">自定义头像：</font></td>
<td bgColor="<% =strPopUpTableColor %>">图像位置：<INPUT name="MyFace" size="28" value="<% =strPhotoURLTemp %>"><img src="<% =strImageURL %>tu_chakan.gif"  onClick="return ChangePic();" style="CURSOR: hand;" title="图片预览" width="16" height="16" border="0"><BR>
　　　　　<FONT color=red>必须带 http:// 的完整URL地址</FONT><BR>
宽　　度：<input type="TEXT" value="<% =RS("M_FACE_WIDTH") %>" name="width" size=3 maxlength=3>&nbsp;20 -- 120 之间的整数<br>
高　　度：<input type="TEXT" value="<% =RS("M_FACE_HEIGHT") %>" name="height" size=3 maxlength=3>&nbsp;20 -- 120 之间的整数<br>
</TD>
</tr>
<tr>
<td align=center bgcolor="<% =strPopUpTableColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">如果图像位置中有连接，图片将以自定义的为主</font></td>
</tr>
<%
	set strPhotoURLTemp = Nothing
end if		' strPicture

if (strBio + strHobbies + strLNews + strQuote)> 0 then
strMyBio = rs("M_BIO")
strMyHobbies = rs("M_HOBBIES")
strMyLNews = rs("M_LNEWS")
strMyQuote = rs("M_QUOTE")
%>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">更多详细资料</font></b></td>
</tr>
<%if strBio = "1" then  %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人简介：</font>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="Bio" cols="40" rows=5><% =Trim(cleancode(strMyBio)) %></textarea></font>
</td>
</tr>
<%end if
if strHobbies = "1" then  %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">个人爱好：</font>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="Hobbies" cols="40" rows=5><% =Trim(cleancode(strMyHobbies)) %></textarea></font>
</td>
</tr>
<% end if %>
<%	if strLNews = "1" then %>
<tr>
<td bgColor=<% =strPopUpTableColor %> valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">最近状况：</font>
</td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="LNews" cols="40" rows=5><% =Trim(cleancode(strMyLNews)) %></textarea></font>
</td>
</tr>
<%	end if %>
<%	if strQuote = "1" then %>
<tr>
<td bgcolor="<% =strPopUpTableColor %>" valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">座 右 铭：</font></td>
<td bgColor=<% =strPopUpTableColor %> valign=top>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><textarea name="Quote" cols="40" rows=5><% =Trim(cleancode(strMyQuote)) %></textarea></font>
</td>
</tr>
<%	end if %>
<% end if %>
<% if Request.Cookies(strUniqueID & "User")("Name") <> "" Then %>
<tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">其它设置</font></b></td>
</tr>
<tr>
123

⌨️ 快捷键说明

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