displaymember.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module displays the profile of a member
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Displaymember()

	dim action,members_firstname,members_lastname,members_username,members_password,members_address,members_city,members_state,members_country,members_email,members_phone,members_zip,members_expirydate,members_accesslevel,members_notes,messaging_id,members_field1,members_field2,members_field3,members_field4,members_field5,members_field6,members_field7,members_field8,members_field9,members_field10
	
	if not Application("smumdebugmode") then on error resume next

	if session("id") = "" then Response.Redirect smumpage&"?action=login&url="&Request.ServerVariables("url")&"?action=inbox"

	messaging_id = request("messaging_id")
	
	action = request("action")
	
	smumquery = "select * from smum_memberstbl where members_id ="& messaging_id
	smumOpenrs smumquery,"smumrs",action

		members_firstname = smumrs("members_firstname")
		members_lastname = smumrs("members_lastname")
		members_username = smumrs("members_username")
		members_address = smumrs("members_address")
		members_city = smumrs("members_city")
		members_state = smumrs("members_state")
		members_country = smumrs("members_country")
		members_email = smumrs("members_email")
		members_phone = smumrs("members_phone")
		members_zip = smumrs("members_zip")
		members_notes = smumrs("members_notes")	
		members_field1 = smumrs("members_field1")	
		members_field2 = smumrs("members_field2")	
		members_field3 = smumrs("members_field3")	
		members_field4 = smumrs("members_field4")	
		members_field5 = smumrs("members_field5")	
		members_field6 = smumrs("members_field6")	
		members_field7 = smumrs("members_field7")	
		members_field8 = smumrs("members_field8")	
		members_field9 = smumrs("members_field9")	
		members_field10 = smumrs("members_field10")	
	
	smumClosers(smumrs)

	smumFormOpenTable
	smumFormHeader "Member Details"
		
	if showfirstname then smumFormFields "First Name",members_firstname
	if showlastname then smumFormFields "Last Name",members_lastname
	smumFormFields "User Name",members_username
	if showaddress then smumFormFields "Address",members_address
	if showcity then smumFormFields "City",members_city
	if showstate then smumFormFields "State",members_state
	if showcountry then smumFormFields "Country",members_country
	if showemail then smumFormFields "Email",members_email
	if showphone then smumFormFields "Phone",members_phone
	if showzip then smumFormFields "Zip",members_zip
	if shownotes then smumFormFields "Notes/Remarks",members_notes
	if showfield1 then smumFormFields smumgetfieldname(1), members_field1
	if showfield2 then smumFormFields smumgetfieldname(2), members_field2
	if showfield3 then smumFormFields smumgetfieldname(3), members_field3
	if showfield4 then smumFormFields smumgetfieldname(4), members_field4
	if showfield5 then smumFormFields smumgetfieldname(5), members_field5
	if showfield6 then smumFormFields smumgetfieldname(6), members_field6
	if showfield7 then smumFormFields smumgetfieldname(7), members_field7
	if showfield8 then smumFormFields smumgetfieldname(8), members_field8
	if showfield9 then smumFormFields smumgetfieldname(9), members_field9
	if showfield10 then smumFormFields smumgetfieldname(10), members_field10

	smumFormCloseTable

End Sub%>