inc_profile.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<td bgcolor="<% =strPopUpTableColor %>" valign=top align=right nowrap width="10%">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">短讯息设置：</font></td>
<td bgColor=<% =strPopUpTableColor %> valign=top align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><A HREF="javascript:openWindow3('pm_options.asp')">设置你的悄悄话参数</A></font>
</td>
</tr>
<% end if %>
<%
'Rem User Field Code #######################################
if (intUserFields> 0) then
%><tr>
<td align=center bgcolor="<% =strCategoryCellColor %>" colspan="2"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">额外资料</font></b></td>
</tr>
<tr><td></td></tr>
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnString
set rs2 = Conn.Execute("SELECT * FROM " & strMemberTablePrefix & "USERFIELDS ORDER BY USR_FIELD_ID")
do until rs2.EOF
	fieldValue = getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID"))
	Response.Write ("<tr><td valign=""top""  align=""right"" bgColor=" &strPopUpTableColor & " > <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
	if rs2("USR_FIELDTYPE") = "T" then
%>
		<td valign="top" bgColor="<% =strPopUpTableColor %>"><textarea maxLength="255" name=<%=rs2("USR_SHORTNAME")%> cols="30" rows=3><%= getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) %></textarea></td>
<%	Else
		if rs2("USR_FIELDTYPE") = "S" then %>
			<td valign="top" bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name=<%=rs2("USR_SHORTNAME")%> size="20" value="<%= getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) %>"></font></td>
<%		Else  %>
			<td valign="top" bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name=<%=rs2("USR_SHORTNAME")%> type="checkbox" value="1" <% If fieldValue = "1" then %>checked<% End If %>></font></td>
<%		End If %>
<%	End If %>
</tr>
<%
rs2.MoveNext
loop
rs2.Close
Conn.close
set Conn = Nothing
end if
'Rem User Field Code #######################################
%>
</table>
</td>
<%
end if 'extended profile
%>
<td bgColor=<% =strPopUpTableColor %> valign=top>
  <table border="0" width="100%" cellspacing="1" cellpadding="3"  bgcolor="<% =strPopUpBorderColor %>">
    <tr>
<td valign="top" align=center colspan="2" bgcolor="<% =strCategoryCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">基本资料</font></b></td>
</tr>
<tr>
<td bgColor=<% =strPopUpTableColor %> align=right nowrap width="10%""><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> 用户名称：</font></b></td>
<td bgColor=<% =strPopUpTableColor %>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%if (Request.QueryString("mode") = "goEdit") or (Request.Querystring("mode") = "goModify" and (Request.QueryString("Name") = "Admin") or Request.Form("MEMBER_ID") = 1 or Request.Form("Name") = "Admin") then %>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =ChkString(rs("M_NAME"), "display") %></font>
<INPUT type="hidden" name="Name" value="<% =rs("M_NAME") %>">
<%else %>
<INPUT name="Name" size="25" maxLength="30" value="<% =ChkString(rs("M_NAME"), "display") %>">
<%end if %>
</font></td>
</tr>
<%
if Request.Querystring("mode") = "goModify" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>"align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">用户名称：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Title" size="25" maxLength="30" value="<% =CleanCode(RS("M_TITLE")) %>"></font></td>
</tr>
<%end if
if strAuthType = "nt" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT>你的帐号：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSizederFontSize %>">
<%if Request.Form("Method_Type") = "Modify" then %>
<input name="Account" value="<% =ChkString(rs("M_USERNAME"), "display") %>" size="20">
<%else %>
<%=Session(strCookieURL & "userid")%><input type="hidden" name="Account" value="<% =Session(strCookieURL & "userid") %>">
<%end if %>
</font></td>
</tr>
<%else %>
<!---------------kerrycode------>
<tr>
<td bgColor="<% =strPopUpTableColor %>"align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> 用户密码：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Password" maxLength="20" type="Password" size="25" value="<% =ChkString(rs("M_PASSWORD"), "display") %>">
<INPUT name="Password-d" type=hidden value="<% =rs("M_PASSWORD") %>"></font></td>
</tr>
<%if Request.QueryString("mode") = "Register" or Request.QueryString("mode") = "goEdit" then %>
<tr>
<td bgColor="<% =strPopUpTableColor %>"align=right nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><FONT color=#ff0000>*</FONT> 确认密码：</font></b></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><INPUT name="Password2" maxLength="20" type="Password" value="<% = ChkString(rs("M_PASSWORD"), "display") %>" size="25"></font></td>
</tr>
 <!---------------/kerrycode-------->
<%end if
end if
if strFullName = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">真实名字：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="FirstName" value="<% =rs("M_FIRSTNAME") %>" size="20"></font></td>
</tr>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的姓氏：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="LastName" value="<% =rs("M_LASTNAME") %>" size="20"></font></td>
</tr>
<%
end if
if strCity = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">居住城市：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="City" value="<% =rs("M_CITY") %>" size="20"></font></td>
</tr>
<%
end if
if strState = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap valign=top><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">所在省分：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<input name="State" value="<% =rs("M_STATE") %>" size="20"></font></td>
</tr>
<%
end if
if strCountry = "1" then
%>
<tr>
<td bgColor="<% =strPopUpTableColor %>" align=right nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">国家地区：</font></td>
<td bgColor="<% =strPopUpTableColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><select name="Country" size="1">
<OPTION selected VALUE="<% =RS("M_COUNTRY") %>"><% = ChkString(rs("M_COUNTRY"), "display") %>
<OPTION VALUE="阿尔巴尼亚">阿尔巴尼亚
<OPTION VALUE="阿尔及利亚">阿尔及利亚
<OPTION VALUE="安道尔">安道尔
<OPTION VALUE="安哥拉">安哥拉
<OPTION VALUE="安圭拉岛">安圭拉岛
<OPTION VALUE="阿根廷">阿根廷
<OPTION VALUE="亚美尼亚">亚美尼亚
<OPTION VALUE="阿鲁巴岛">阿鲁巴岛
<OPTION VALUE="澳大利亚">澳大利亚
<OPTION VALUE="奥地利">奥地利
<OPTION VALUE="阿塞拜疆">阿塞拜疆
<OPTION VALUE="巴哈马群岛">巴哈马群岛
<OPTION VALUE="巴巴多斯岛">巴巴多斯岛
<OPTION VALUE="比利时">比利时
<OPTION VALUE="伯利兹城">伯利兹城
<OPTION VALUE="贝宁湾">贝宁湾
<OPTION VALUE="百慕大群岛">百慕大群岛
<OPTION VALUE="不旦">不旦
<OPTION VALUE="玻利维亚">玻利维亚
<OPTION VALUE="波斯尼亚">波斯尼亚
<OPTION VALUE="博茨瓦纳">博茨瓦纳
<OPTION VALUE="巴西">巴西
<OPTION VALUE="文莱">文莱
<OPTION VALUE="保加利亚">保加利亚
<OPTION VALUE="布基纳法索">布基纳法索
<OPTION VALUE="布隆迪">布隆迪
<OPTION VALUE="柬埔寨">柬埔寨
<OPTION VALUE="加拿大">加拿大
<OPTION VALUE="好望角">好望角
<OPTION VALUE="鳄鱼岛">鳄鱼岛
<OPTION VALUE="中非">中非
<OPTION VALUE="智利">智利
<OPTION VALUE="哥伦比亚">哥伦比亚
<OPTION VALUE="刚果">刚果
<OPTION VALUE="哥斯达黎加">哥斯达黎加
<OPTION VALUE="克罗地亚">克罗地亚
<OPTION VALUE="古巴">古巴
<OPTION VALUE="塞浦路斯">塞浦路斯
<OPTION VALUE="捷克">捷克
<OPTION VALUE="丹麦">丹麦
<OPTION VALUE="多米尼加">多米尼加
<OPTION VALUE="东帝汶">东帝汶
<OPTION VALUE="厄瓜多尔">厄瓜多尔
<OPTION VALUE="埃及">埃及
<OPTION VALUE="萨尔瓦多">萨尔瓦多
<OPTION VALUE="几内亚">几内亚
<OPTION VALUE="爱沙尼亚">爱沙尼亚
<OPTION VALUE="埃塞俄比亚">埃塞俄比亚
<OPTION VALUE="菲济">菲济
<OPTION VALUE="芬兰">芬兰
<OPTION VALUE="法国">法国
<OPTION VALUE="马其顿">马其顿
<OPTION VALUE="德国">德国
<OPTION VALUE="加纳">加纳
<OPTION VALUE="希腊">希腊
<OPTION VALUE="几内亚">几内亚
<OPTION VALUE="海地">海地
<OPTION VALUE="洪都拉斯">洪都拉斯
<OPTION VALUE="匈牙利">匈牙利
<OPTION VALUE="冰岛">冰岛
<OPTION VALUE="印度">印度
<OPTION VALUE="印度尼西亚">印度尼西亚
<OPTION VALUE="伊朗">伊朗
<OPTION VALUE="伊拉克">伊拉克
<OPTION VALUE="爱尔兰">爱尔兰
<OPTION VALUE="以色列">以色列
<OPTION VALUE="意大利">意大利
<OPTION VALUE="牙买加">牙买加
<OPTION VALUE="日本">日本
<OPTION VALUE="约旦">约旦
<OPTION VALUE="肯尼亚">肯尼亚
<OPTION VALUE="朝鲜">朝鲜
<OPTION VALUE="科威特">科威特
<OPTION VALUE="老挝">老挝
<OPTION VALUE="黎巴嫩">黎巴嫩
<OPTION VALUE="利比里亚">利比里亚
<OPTION VALUE="立陶宛">立陶宛
<OPTION VALUE="卢森堡">卢森堡
<OPTION VALUE="马达加斯加">马达加斯加
<OPTION VALUE="马来西亚">马来西亚
<OPTION VALUE="马尔代夫">马尔代夫
<OPTION VALUE="毛里求斯">毛里求斯
<OPTION VALUE="墨西哥">墨西哥
<OPTION VALUE="摩尔多瓦">摩尔多瓦
<OPTION VALUE="摩纳哥">摩纳哥
<OPTION VALUE="蒙古">蒙古
<OPTION VALUE="摩洛哥">摩洛哥
<OPTION VALUE="莫桑比克">莫桑比克
<OPTION VALUE="缅甸">缅甸
<OPTION VALUE="纳米比亚">纳米比亚
<OPTION VALUE="尼泊尔">尼泊尔
<OPTION VALUE="荷兰">荷兰
<OPTION VALUE="新西兰">新西兰
<OPTION VALUE="尼加拉瓜">尼加拉瓜
<OPTION VALUE="尼日尔">尼日尔
<OPTION VALUE="尼日利亚">尼日利亚
<OPTION VALUE="挪威">挪威
<OPTION VALUE="阿曼">阿曼
<OPTION VALUE="巴基斯坦">巴基斯坦
<OPTION VALUE="巴勒斯坦">巴勒斯坦
<OPTION VALUE="巴拿马">巴拿马
<OPTION VALUE="巴布亚新几内亚">巴布亚新几内亚
<OPTION VALUE="巴拉圭">巴拉圭
<OPTION VALUE="秘鲁">秘鲁
<OPTION VALUE="菲律宾">菲律宾
<OPTION VALUE="波兰">波兰
<OPTION VALUE="葡萄牙">葡萄牙
<OPTION VALUE="卡塔尔">卡塔尔
<OPTION VALUE="韩国">韩国
<OPTION VALUE="罗马尼亚">罗马尼亚