📄 functions.asp
字号:
<!--- #include virtual=/smusermanager/utilities/common.asp --->
<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Functions Module
'For any help with modification to
'this file contact support@scriptmate.com
'=========================================
dim smumtrue, smumfalse, smumdatechar
if smumdatabasetype = "MS SQL" then
smumtrue = 1
smumfalse = 0
smumdatechar = "'"
else
smumtrue = true
smumfalse = false
smumdatechar = "#"
end if
Function smumFormOpenTable()
Response.Write "<br>"
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=95% align=center class=colorformborder>"
Response.Write "<tr class=colorformborder>"
Response.Write "<td>"
Response.Write "<table border=0 cellspacing=0 width=100% cellpadding=0>"
Response.Write "<tr class=white>"
Response.Write "<td colspan=2>"
Response.Write "<table border=0 cellspacing=1 cellpadding=5 width=100% colspan=2>"
End Function
Function smumFormAction(actiondata)
Response.Write actiondata
End Function
Function smumFormHiddenField(fieldname,fieldvalue)
Response.Write "<input type=hidden name="&fieldname&" value="""&fieldvalue&""">"
End Function
Function smumFormHeader(headerdata)
Response.Write "<tr class=colorformheader>"
Response.Write "<td colspan=2><font class=textsize9><b>"& headerdata &"</b></font></td>"
Response.Write "</tr>"
End Function
Function smumFormFields(ldata,rdata)
dim colorclass
if session("color") = true then
colorclass = "colorformfields"
session("color") = false
else
colorclass = "colorformfieldsalt"
session("color") = true
end if
Response.Write "<tr class="&colorclass&">"
Response.Write "<td align=right width=50% ><font class=textsize9>"&ldata&"</font></td>"
Response.Write "<td><font class=textsize9>"&rdata&"</font></td>"
Response.Write "</tr>"
End Function
Function smumFormFieldsA(ldata,rdata)
Response.Write "<tr class=colorformfields>"
Response.Write "<td align=right width=50% > <font class=textsize9>"&ldata&"</font></td>"
Response.Write "<td><font class=textsize9>"&rdata&"</font></td>"
Response.Write "</tr>"
End Function
Function smumFormButtons(buttonsdata)
Response.Write "<tr class=colorformfields>"
Response.Write "<td colspan=2 align=right><font class=textsize9>"&buttonsdata&"</font></td>"
Response.Write "</tr>"
End Function
Function smumFormClose()
Response.Write "</form>"
End Function
Function smumFormCloseTable()
Response.Write "</table>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table><br><br>"
End Function
Function smumFormResponse(responsedata)
Response.Write "<tr class=colorformresponse>"
Response.Write "<td colspan=2><font class=textsize9>"&responsedata&"</font></td>"
Response.Write "</tr>"
End Function
Function smumFormResponseCol(responsedata)
Response.Write "<tr class=colorformfields>"
Response.Write "<td align=center colspan=2><font class=textsize9>"&responsedata&"</font></td>"
Response.Write "</tr>"
End Function
Function getaccesslevel(number)
dim i
getaccesslevel = "<select name=members_accesslevel>"
For i = 1 to (session("accesslevel")-1)
if number = i then
getaccesslevel = getaccesslevel & "<option value="&i&" selected>Level "&i&"</option>"
else
getaccesslevel = getaccesslevel & "<option value="&i&">Level "&i&"</option>"
end if
Next
getaccesslevel = getaccesslevel & "</select>"
End Function
Function getmembers(id)
dim smumquery1
smumquery1 = "select members_id, members_username from smum_memberstbl order by members_id desc"
smumOpenrs smumquery1,"smumrs1",action
if smumrs1.eof then
getmembers = "No Memebers Exist"
else
getmembers = "<select name=members>"
do until smumrs1.eof
getmembers = getmembers & "<option value="&id&">"&smumrs1("members_username")&"</option>"
smumrs1.movenext
loop
getmembers = getmembers & "</select>"
end if
smumClosers(smumrs1)
End Function
Function getuserformat(id,style,typ)
dim members_active,smumquery,temptext,members_admin
smumquery = "select * from smum_memberstbl where members_id = " & id
smumOpenrs smumquery,"smumrs",action
if smumrs.eof then
else
if smumrs("members_active") then members_active = "on"
if smumrs("members_admin") then members_admin = "on"
temptext = "<td class="&style&" align=center nowrap><font class=textsize9>"
getuserformat = getuserformat & "<tr><form>"&temptext&smumrs("members_username")&" </font></td>"
getuserformat = getuserformat & temptext&smumrs("members_firstname")&" </font></td>"
getuserformat = getuserformat & temptext&formatdatetime(smumrs("members_date"),vbshortdate)&" </font></td>"
getuserformat = getuserformat & temptext&smumrs("members_accesslevel")&" </font></td>"
getuserformat = getuserformat & temptext&smumrs("members_expirydate")&" </font></td>"
getuserformat = getuserformat & temptext& "<input type=checkbox name=temp "&smIfChecked(members_active)&"> </font></td>"
getuserformat = getuserformat & temptext& "<input type=checkbox name=temp "&smIfChecked(members_admin)&"> </font></td>"
if typ = 1 then getuserformat = getuserformat & temptext& "<a href="""&smumadminpage&"?action=editmember&id="&smumrs("members_id")&"""><img src=/smusermanager/images/edit.gif border=0 align=absmiddle alt=""Edit Member""></a> | <a href="""&smumadminpage&"?action=deletemember&id="&smumrs("members_id")&"""><img src=/smusermanager/images/delete.gif border=0 align=absmiddle alt=""Delete Member""></a></font></td>"
getuserformat = getuserformat & "</form></tr>"
end if
smumClosers(smumrs)
End Function
Function convertmes(data, id)
if id = "" then
convertmes = data
else
smumquery = "select * from smum_memberstbl where members_id = "& id
smumOpenrs smumquery,"smumrs",action
if smumrs("members_username") <> "" then convertmes = replace(data, "#$username$#", smumrs("members_username"))
if smumrs("members_password") <> "" then convertmes = replace(convertmes, "#$password$#", smumrs("members_password"))
if smumrs("members_firstname") <> "" then convertmes = replace(convertmes, "#$firstname$#", smumrs("members_firstname"))
if smumrs("members_lastname") <> "" then convertmes = replace(convertmes, "#$lastname$#", smumrs("members_lastname"))
if smumrs("members_email") <> "" then convertmes = replace(convertmes, "#$email$#", smumrs("members_email"))
if smumrs("members_phone") <> "" then convertmes = replace(convertmes, "#$phone$#", smumrs("members_phone"))
if smumrs("members_address") <> "" then convertmes = replace(convertmes, "#$address$#", smumrs("members_address"))
if smumrs("members_city") <> "" then convertmes = replace(convertmes, "#$city$#", smumrs("members_city"))
if smumrs("members_zip") <> "" then convertmes = replace(convertmes, "#$zip$#", smumrs("members_zip"))
if smumrs("members_state") <> "" then convertmes = replace(convertmes, "#$state$#", smumrs("members_state"))
if smumrs("members_country") <> "" then convertmes = replace(convertmes, "#$country$#", smumrs("members_country"))
if smumrs("members_id") <> "" then convertmes = replace(convertmes, "#$id$#", id)
if smumrs("members_field1") <> "" then convertmes = replace(convertmes, "#$field1$#", smumrs("members_field1"))
if smumrs("members_field2") <> "" then convertmes = replace(convertmes, "#$field2$#", smumrs("members_field2"))
if smumrs("members_field3") <> "" then convertmes = replace(convertmes, "#$field3$#", smumrs("members_field3"))
if smumrs("members_field4") <> "" then convertmes = replace(convertmes, "#$field4$#", smumrs("members_field4"))
if smumrs("members_field5") <> "" then convertmes = replace(convertmes, "#$field5$#", smumrs("members_field5"))
if smumrs("members_field6") <> "" then convertmes = replace(convertmes, "#$field6$#", smumrs("members_field6"))
if smumrs("members_field7") <> "" then convertmes = replace(convertmes, "#$field7$#", smumrs("members_field7"))
if smumrs("members_field8") <> "" then convertmes = replace(convertmes, "#$field8$#", smumrs("members_field8"))
if smumrs("members_field9") <> "" then convertmes = replace(convertmes, "#$field9$#", smumrs("members_field9"))
if smumrs("members_field10") <> "" then convertmes = replace(convertmes, "#$field10$#", smumrs("members_field10"))
smumClosers(smumrs)
end if
End Function
Function getaccesslevelnews(number)
dim i
getaccesslevelnews = "<select name=accesslevel><option value=""-1"">All Mailing List Members</option><option value=0>All Registered Users</option>"
For i = 1 to (session("accesslevel")-1)
if number = i then
getaccesslevelnews = getaccesslevelnews & "<option value="&i&" selected>All Level "&i&" Users</option>"
else
getaccesslevelnews = getaccesslevelnews & "<option value="&i&">All Level "&i&" Users</option>"
end if
Next
getaccesslevelnews = getaccesslevelnews & "</select>"
End Function
Function smumadminheader(section)
Response.Write "<TABLE cellSpacing=0 valign=top cellPadding=0 width=100% border=0>"
if section = "Home" then
Response.Write "<TR>"
Response.Write "<TD height=20 width=160 class=lightgrey><font class=pathlink>Home > </font></TD>"
Response.Write "</TR>"
else
Response.Write "<TR>"
Response.Write "<TD height=20 class=lightgrey><font class=pathlink><a href="&smumadminpage&"?action=home>Home</a> > "§ion&"</font></TD>"
Response.Write "</TR>"
end if
Response.Write "<TR valign=top height=2>"
Response.Write "<TD><IMG src=/smusermanager/images/clear.gif height=2 width=25 border=0></TD>"
Response.Write "</TR>"
Response.Write "<TR valign=top height=3>"
Response.Write "<TD class=gray><IMG src=/smusermanager/images/clear.gif height=3 width=25 border=0></TD>"
Response.Write "</TR>"
Response.Write "</TABLE>"
End Function
Function smumuserheader(section)
Response.Write "<table width=100% align=center cellspacing=0 border=0 cellpadding=0 class=colormenufields>"
if section = "Home" then
Response.Write "<tr>"
Response.Write "<td align=left class=colormenufields><img src=/smusermanager/images/clear.gif width=1 height=3><br> <b><font class=textsize9>Home ></font></b><br><img src=/smusermanager/images/clear.gif width=1 height=3></tD>"
Response.Write "</tr>"
else
Response.Write "<tr>"
Response.Write "<td align=left class=colormenufields><img src=/smusermanager/images/clear.gif width=1 height=3><br> <b><font class=textsize9><a href="&smumpage&"?action=home>Home</a> > "§ion&"</font></b><br><img src=/smusermanager/images/clear.gif width=1 height=3></tD>"
Response.Write "</tr>"
end if
Response.Write "<tr>"
Response.Write "<td align=left class=colortopbar><img src=/smusermanager/images/clear.gif width=1 height=1></tD>"
Response.Write "</tr>"
Response.Write "</table><br>"
End Function
Function getgroups(id)
dim smumquery1, smumquery
smumquery = "select * from smum_groupstbl order by groups_groupname ASC"
smumOpenrs smumquery,"smumrs",action
if smumrs.eof then
getgroups = "No groups exist you can create them from the Group Management section."
else
getgroups = "<select name=members_group multiple>"
do until smumrs.eof
if id = 0 then
getgroups = getgroups & "<option value="&smumrs("groups_id")&">"&smumrs("groups_groupname")&"</option>"
else
smumquery1 = "select * from smum_usergroupstbl where usergroups_userid = " & id &" and usergroups_groupid ="& smumrs("groups_id")
smumOpenrs smumquery1,"smumrs1",action
if smumrs1.eof then
getgroups = getgroups & "<option value="&smumrs("groups_id")&">"&smumrs("groups_groupname")&"</option>"
else
getgroups = getgroups & "<option selected value="&smumrs("groups_id")&">"&smumrs("groups_groupname")&"</option>"
end if
smumClosers(smumrs1)
end if
smumrs.movenext
loop
getgroups = getgroups & "</select>"
end if
smumClosers(smumrs)
End Function
Function getgroupssingle(id)
smumquery = "select * from smum_groupstbl order by groups_groupname ASC"
smumOpenrs smumquery,"smumrs",action
if smumrs.eof then
getgroupssingle = "There are currently no groups."
else
getgroupssingle = "<select name=group>"
do until smumrs.eof
if id = 0 or id = "" then
getgroupssingle = getgroupssingle & "<option value="&smumrs("groups_id")&">"&smumrs("groups_groupname")&"</option>"
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -