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

📄 pop-details.asp

📁 简介：一个程序小巧而功能强大
💻 ASP
字号:
🔍 
<html>
<head>
<title>// Details //</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<!--#include file="Includes/site-dataconn.asp" -->
<LINK REL=stylesheet TYPE="text/css" HREF="Includes/Site-Style.css">
<style type="text/css">
body
{
	margin: 5px; 
}
</style>

</head>

<body>
<%
'Open database and grab relevant users details
strUserID = request.querystring("U")
strRequest = request.querystring("D")

select case strRequest
	case "ICQ"
		sqlSelect = "SELECT User_Name, User_ICQ AS Details FROM Forum_Users WHERE User_ID = "& strUserID &";"
	case "AIM"
		sqlSelect = "SELECT User_Name, User_AIM AS Details FROM Forum_Users WHERE User_ID = "& strUserID &";"
	case "MSN"
		sqlSelect = "SELECT User_Name, User_MSN AS Details FROM Forum_Users WHERE User_ID = "& strUserID &";"
	case "Email"
		sqlSelect = "SELECT User_Name, User_Email AS Details FROM Forum_Users WHERE User_ID = "& strUserID &";"
	case "IP"
		sqlSelect = "SELECT User_Name, User_IP AS Details FROM Forum_Users WHERE User_ID = "& strUserID &";"
	case else
		strMessage = "You have reached this page in error, please go back and try again"
end select

if strMessage = "" then
	set rsSelect = server.createobject("adodb.recordset")
	rsSelect.Open sqlSelect, adoConn
	if rsSelect.eof or rsSelect.bof then
		strMessage = "We could not find the user details that you requested."
	else
		strUsername = rsSelect("User_Name")
		strDetails = rsSelect("Details")
	end if
	rsSelect.close
	set rsSelect = nothing
	
	if strRequest = "IP" and session("admin") <> true then
		strMessage = "You must be one of the forum administrators to view this page"
	end if
end if

if strMessage <> "" then
	response.write("<table width='100%' height='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='76' align='center' valign='middle'><table border='0' cellspacing='1' cellpadding='3' align='center' class='main' style='width: 100%'><tr valign='middle' class='title'><td align='center'>Error</td></tr><tr valign='top' class='body'><td align='center'>"& strMessage &"</td></tr></table></td></tr></table>")
else
	response.write("<table width='100%' height='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='76' align='center' valign='middle'><table border='0' cellspacing='1' cellpadding='3' align='center' class='main' style='width: 100%'><tr valign='middle' class='title'><td align='center'>"& strUsername &"</td></tr><tr valign='top' class='body'><td align='center'>"& strDetails &"</td></tr></table></td></tr></table>")
end if
%>
</body>
</html>

⌨️ 快捷键说明

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