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

📄 pop_ufield_table.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
字号:
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#include file="config.asp"-->
<!--#include file="inc_top_short.asp"-->

<%

	Set rs = Server.CreateObject("ADODB.Recordset")
	if request("emin") = "New" then
		set rs.ActiveConnection = my_Conn
		rs.CursorType = 3
		my_Conn.Execute = "INSERT INTO " & strMemberTablePrefix & "USERFIELDS (USR_LABEL,USR_FIELDTYPE,USR_SHORTNAME) Values ('NewLabel','S','User_')"
		response.redirect "admin_user_fields.asp"
	end if
%>

<%
	if request("emin") = "Del" then
		sfldValue = request("USR_FIELD_ID")

		if isNumeric(sfldValue) then
			sWhere = "USR_FIELD_ID" & "=" & sfldValue
		else
			sWhere = "USR_FIELD_ID" & "='" & sfldValue & "'"
		end if
		my_Conn.execute "delete from " & strMemberTablePrefix & "USERFIELDS  WHERE " & sWhere
		my_Conn.execute "delete from " & strMemberTablePrefix & "MEMBERFIELDS  WHERE " & sWhere
		
		response.redirect "admin_user_fields.asp?uTable=" & request("uTable") & "&iPage="  & request("iPage")
		response.end
	end if
%>

<br>
<br>
<div align="center"><% if request("preview") = "preDel" then  %>

			<p>Are you sure you want to delete the record?</p>
			<a href="pop_ufield_table.asp?<%=request.querystring%>&emin=Del" >Yes</a>&nbsp;
<% Elseif request("preview") = "preNew" then  %>
			<p>Are you sure you want to Add a new record?</p>
			<a href="pop_ufield_table.asp?<%=request.querystring%>&emin=New" >Yes</a>&nbsp;			
<% End If %>

			<a href="admin_user_fields.asp?uTable=<%=request("uTable")%>&iPage=1">No</a>
<br>
</div></font>
<br>
<br>
<br>
<br>
<br>
<div align="center">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" >
<a href="admin_user_fields.asp?uTable=FORUM_USERFIELDS">Back to Table Editor</a>
</font>
</div>
</body>
</html>

⌨️ 快捷键说明

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