admin_user_fields.asp

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

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#include file="config.asp"-->
<% 	If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#include file="inc_top.asp"-->

	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><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.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;额外会员资料栏设置
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<%

	if intUserFields = "" then intUserFields = 0
	if Request.Form("Method_Type") = "Write_Configuration" then
		Err_Msg = ""
	
		if Err_Msg = "" then

			'## Forum_SQL
			if cInt(Request.Form("intUserFields")) <> 1 then
				intUserFields = 0
			else
				intUserFields = 1
			end if
			strSql = "UPDATE " & strTablePrefix & "MODS "
			strSql = strSql & " SET M_VALUE ='" & intUserFields & "'"
			strSQL = strSql & " WHERE M_NAME = 'HModEnable' AND M_CODE = 'UserFields' "

			my_Conn.Execute (strSql)

			Application(strCookieURL & "ConfigLoaded") = ""

%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">设定已经更新完成完毕！</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_user_fields.asp">回到会员资料栏位新增管理中心</font></a></p>
<%		else %>
	<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你输入的资料有问题或没有填写完整</font></p>

	<table align=center border=0>
	  <tr>
	    <td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
		<ul>
		<% =Err_Msg %>
		</ul>
	    </font></td>
	  </tr>
	</table>

	<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">请返回重新输入</a></font></p>
<%		end if
	else
%>

<table width="80%" align="center">
<tr>
	<td align="center"><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>>
			<form action="admin_user_fields.asp" method="post" name="Addform">
			<input type="hidden" name="Method_Type" value="Write_Configuration">
			<%
			if intUserFields <> 1 then %>
			<input type="checkbox" name="intUserFields" value="1" <% if intUserFields = 1 then response.write "checked" end if %> >
			额外会员资料栏并未启动，请勾选该项目并按下设定
			<% Else  %>
			<input type="checkbox" name="intUserFields" value="1" <% if intUserFields = 1 then response.write "checked" end if %> >&nbsp;
			额外会员资料栏已启动，请取消勾选该项目并按下设定
			<% End If %>
			<br><input type="submit" name="AddField" value=" 设定 ">
			</form></font>
	</td>
</tr>
  <tr>
    <td align=center valign=center>
    <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">

<%
			
			Set rs2 = Server.CreateObject("ADODB.Recordset")
			rs2.cachesize = 20
			sSQL = "SELECT * FROM " & strMemberTablePrefix & "USERFIELDS"
			rs2.Open sSQL, my_Conn, 3
			rs2.cachesize = 5
			rs2.PageSize = 5
			strPageSize = 5
			lRecs = rs2.RecordCount
			lFields = rs2.Fields.count
			
			iPage = CLng(request("iPage"))

			iPageCount = cInt(rs2.PageCount)

			if iPage < 1 then
				iPage = 1
			end if
			if not rs2.BOF or not rs2.EOF then
				rs2.AbsolutePage = iPage
			end if

			%>
			<table align="center" border=0 cellspacing=1 cellpadding=4 bgcolor = "<% =strHeadCellColor %>" width=80%>
				<tr>
					
					<td bgcolor="<% =strHeadCellColor %>"  colspan=<%=lFields+1%>><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">栏位&nbsp;[<%=lRecs%>]&nbsp;&nbsp;
						<%
							if iPage > 1 then
								response.write "<a href=""admin_user_fields.asp?uTable=FORUM_USERFIELDS&iPage=" & iPage - 1 & """ alt=""上一页"">"
								response.write "←</a>&nbsp;|&nbsp;"
							else
								response.write "←&nbsp;|&nbsp;"
							end if
							if iPage < iPageCount then
								response.write "<a href=""admin_user_fields.asp?uTable=FORUM_USERFIELDS&iPage=" & iPage + 1 & """ alt=""下一页"">"
								response.write "→</a>"
							else
								response.write "→"
							end if
							response.write "&nbsp;&nbsp;&nbsp;[Page:" & iPage & "/"
							if iPageCount = 0 then
								iPageCount = 1
							end if
							response.write iPageCount & "]"
					%>
					</td>
					
				</tr>
				<tr>
				<td bgcolor="<% =strPopUpTableColor %>" ><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">操作</font></td>
				<td bgcolor="<% =strPopUpTableColor %>" ><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">显示名称</font></td>
				<td bgcolor="<% =strPopUpTableColor %>" ><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">资料型别</font></td>
				<td bgcolor="<% =strPopUpTableColor %>" ><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">栏位名称</font></td>
				
			<%


			response.write "</tr>"
			
			rec = 1
			do until rs2.eof or rec = (strPageSize +1)
				
				set fld = rs2.fields(0)
				iFieldCount = 0
				response.write "<td bgcolor=" & strPopUpTableColor & "><font face=" & strDefaultFontFace & " size="& strDefaultFontSize & ">"
				response.write "<a href=""pop_ufield_table.asp?uTable=FORUM_USERFIELDS&" & fld.name & "=" & rs2(fld.name) & "&iPage=" & iPage & "&preview=preDel"" >删除</a>&nbsp;"
				response.write "<a href=""pop_ufield_record.asp?uTable=FORUM_USERFIELDS&" & fld.name & "=" & rs2(fld.name) & "&iPage=" & iPage & """ >编辑</a>"
				response.write "</td>"			
				
				
				for each fld in rs2.fields
					iFieldCount = iFieldCount + 1
					if iFieldCount <> 1 then
					response.write "<td bgcolor=" & strPopUpTableColor & "><font face=" & strDefaultFontFace & " size="& strDefaultFontSize & ">"
							response.write rs2(fld.name)
					end if
					response.write "</font></td>"
				next
				
				response.write "</tr>"
				rec = rec + 1
				rs2.movenext
			loop
			response.write "</table>"
			rs2.close
			set rs2 = nothing


%>
			<form action="pop_ufield_table.asp?preview=preNew" method="post" name="Addform">
			<input type="submit" name="AddField" value=" 新增 ">
			<input type="hidden" name="Method_Type" value="">
			</form>

<p><font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>" >
<b>删除</b> 点选删除这个栏目<br>
<b>新增</b> 按此按钮新增栏目<br>
</p>
    </font>
    </center>
	</tr>
	</table>
</div>
</body>
</html>
<% End If %><!--#include file="inc_footer.asp"--><% Else %><% Response.Redirect "admin_login.asp" %>
<% End IF %>