User management

Use the ASP file operation to implement user management

Simple, easy to use, development efficiency, etc. is the advantage of ASP, but its system operation is relatively weak. To achieve this function, only the way to call components. FileSystemObject object is an example. After the ASP is installed, the object is registered in the system. However, its feature is also very general, only file type files can be operated. But you can also meet some of our needs. A friend of a colleague in the past few days applied for a space that supported the ASP, wanted to implement functions such as user registration, information modification, user logout, and do not want to use the database to implement, because a lot of settings are required. In fact, the text file is operated using the FileSystemObject. The implementation is: establish a text file for each information, such as name, gender, age, etc. All users' same information items are saved in the corresponding file. If the name information of each user is saved in the name file. And each user's information begins and ends and ends, and the information is positioned based on these flags. For example, start the flag with "` user name ", end the flag with" `e`. As long as it is not a common string, it can be used as a flag. In addition, there are two files that are essential: That is the username, password file. Determine if the user exists, the user login, etc., the use of these two files. The following is the specific implementation code of myself. Before the program was written, I first made a public function unit Fun.inc, which is some relatively universal functions for other ASP files. First of all, the functions of some user information, including the username, file name, user information, are all string type, where user information can be multi-line. Code is as follows: Sub WriteUser (UserName, FileName, UserInfo) Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") If fs.FileExists (FileName) = False Then fs.CreateTextFile (FileName) End If 'to add Open File set f = fs.opentextfile (filename, 8) 'User information Start flag F.WriteLine ("` "& username &" `") F.Writeline ("` Er) end sign F.Writeline ("` E` ") F.close set f = nothing set fs = nothingend Sub read user information function only requires two parameters: user name and file name, user information as the return value of the function, the implementation of the idea is to find the beginning, end the flag, and Return the information between them.

Code is as follows: Function ReadUser (UserName, FileName) Dim i Dim s Dim ret Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") if fs.FileExists (FileName) = false then Set fs = Nothing ReadUser = "" Exit Function end if 'open files in read-only mode Set f = fs.opentextfile (filename, 1) do while f.atendofstream <> true s = f.readline if s = "` "& username &" `` "THEN S = f .Readline ret = "" Do while s <> "` E` "if Ret =" "" "= RET S ELSE RET = RET CHR (13) & chr (10) s end if s = f.readline LOOP EXIT Do End if Loop F.Close Set F = Nothing Set FS = Nothing Readuser = Retend Function The following is a function of deleting user information, using two parameters of the username and file name. The program reads the corresponding file by line. If other users' information, saved in a string variable, otherwise, the file is not saved, and then the file is overridden with the contents of the variable.

Code is as follows: Sub DeleteUser (UserName, FileName) Dim i Dim s Dim tmp Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") if fs.FileExists (FileName) = false then Set fs = Nothing Exit Sub end if Set f = fs.opentextfile (filename, 1) TMP = "" DO while f.atendofstream <> true s = f.readLine if s <> "` "& username &" `" THEN IF TMP = "" THENTMP = TMP S else TMP = TMP CHR (13) & chr (10) s end if Else do while s <> "` e` "s = f.readline loop end if loop f.close set f = fs.createtextfile FileName, True) F.WriteLine Tmp F.Close Set f = nothing set fs = nothingnd Sub Modify the user information function and the write user information function, with the username, file name, user information three parameters, only this function User information is updated. The process of implementation and deletion of the program is similar, deleting the user does not save the user's information to the variable, modify the user, save the update information to the variable instead of the original information.

Code is as follows: Sub ModifyUser (UserName, FileName, NewUserInfo) Dim i Dim s Dim tmp Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") if fs.FileExists (FileName) = false then Set fs = Nothing Exit Sub end IF set f = fs.opentextfile (filename, 1) TMP = "" Do while f.atendofstream <> true s = f.readline if s <> "` "& username &" `" Then IF TMP = "" THEN TMP = TMP S ELSE TMP = TMP CHR (13) & chr (10) S end if Else do while s <> "` e` "s = f.readline loop if TMP =" "" TMP = TMP " `" & Username & "` "Else TMP = TMP CHR (13) & chr (10) " `" & username & "` "end if TMP = TMP CHR (13) & chr (10) NewuserInfo TMP = TMP CHR (13) & chr (10) "` E. Endiff f.close set f = fs.createtextfile (filename, true) F.WriteLine Tmp F.Close set f = nothing set fs = nothingend Sub has a function to determine if the user exists, and is implemented by positioning in a file saved username, the code is as follows: function useerexist (username, filename) DIM FS, F set fs = CreateObject ( "Scripting.FileSystemObject") if fs.FileExists (FileName) = False then Set fs = Nothing UserExist = False Exit Function end if Set f = fs.OpenTextFile f.AtEndOfStream (FileName, 1) Do While <> True s = F.Readline if s = "` "& username &" `" Then usexist =

True EXIT FUNCTION End if loop f.close set f = nothing set fs = Nothing useEREXIST = FALSEEND function The following is the full code of some files, demonstrate how to implement basic user management by calling the above functions: User registration, user login, user Modify, user delete. for reference only. The program is commissioned in Win2000 Professional IIS. Note that the text file is saved under the subdirectory "TXT" of the current directory, if there is no this directory, please establish it manually, and the program is implemented.

'*********************************************************** ************* <% DIM Usernmfile, UserPwdFile, Nmfile, Gnderfile, MMFileUsernmfile = "txt / username.txt" userpwdfile = "txt / password.txt" nmfile = "txt / name. txt "GenderFile =" txt / Gender.txt "MmFile =" txt / memo.txt "UserNmFile = Server.MapPath (UserNmFile) UserPwdFile = Server.MapPath (UserPwdFile) NmFile = Server.MapPath (NmFile) GenderFile = Server.MapPath ( GenderFile) MmFile = Server.MapPath (MmFile) '' wrote user information to a file Sub WriteUser (UserName, FileName, UserInfo) Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") If fs.FileExists (FileName) = False THEN FS.CREATEXTFILE (filename) Endiff's Open File SET F = fs.opentextFile (FileName, 8) 'User Information Start Sign F.Writeline ("` "& UserName &" `") F.Writeline (UserInfo ) 'User information End Sign F.Writeline ("` e` "f.close set f = nothing set fs = nothingend sub' read User Information Function Readuser (username, filename) DIM I DIM S DIM RET DIM FS, F Set fs = creteObject ("scripting.filesystemObject") if fs.fileexists (filename) = false kil FS = Nothing readuser = "" EXIT function end if 'Open files in read-only mode SET F = fs.opentextfile (filename, 1) do while f.atendofstream <> true s = f.readline if s = "` "& username & "` "THEN S = f.readline ret =" "Do while s <>" `e`" if Ret = "" "= RET S ELSE RET = RET CHR (13) & chr (10) s end if s =

F.Readline loop exit do end if loop f.close set f = nothing set fs = nothing readuser = retend function 'Delete User Information SUB Deleteuser (Username, FileName) DIM I DIM S DIM TMP DIM FS, F SET FS = CREATEOBJECT "Scripting.filesystemobject") if fs.fileexists (filename) = false the set fs = nothing exit sub end if set f = fs.opentextfile (filename, 1) TMP = "" Do while f.atendofstream <> true s = f .Readline if s <> "` "& username &" `" THEN IF TMP = "" "TMP = TMP S ELSE TMP = TMP CHR (13) & chr (10) s end if else do while s < > "` e` "s = f.readline loop end if loop f.close set f = fs.createtextfile (filename, true) f.writeLine Tmp f.close set f = nothing set fs = nothingnd sub 'modify user information SUB ModifyUser (UserName, FileName, NewUserInfo) Dim i Dim s Dim tmp Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") if fs.FileExists (FileName) = false then Set fs = Nothing Exit Sub end if Set f = fs.opentextfile (filename, 1) TMP = "" DO while f.atendofstream <> true s = f.readline if s <> "` "& username &" `" THEN IF TMP = "" TMP = TMP S else TMP = TMP CHR (13) & chr (10) S end if Else do while s <> "` e` "s = f.readline loop if tmp =" "THEN TMP = TMP " `" & UserName & "` "

ELSE TMP = TMP CHR (13) & chr (10) "` "& username &" `" end if TMP = TMP CHR (13) & chr (10) NewUserInfo TMP = TMP CHR (13) & CHR (10) "` e` "end if loop f.close set f = fs.createtextfile (filename, true) f.writeline tmp f.close set f = nothing set fs = nothingnd sub 'determines if the user has function UserExist (UserName, FileName) Dim fs, f Set fs = CreateObject ( "Scripting.FileSystemObject") if fs.FileExists (FileName) = False then Set fs = Nothing UserExist = False Exit Function end if Set f = fs.OpenTextFile (FileName 1) do while f.atendofstream <> true s = f.readline if s = "` "& username &" `" THENEREXIST = true exit function end if loop f.close set f = nothing set fs = Nothing userexist = Faleseend function%> '***************************************************** *************** User registration
User login
User Modification
User Delete < BR> '************** register.htm ******************** ******************** User registration

Username
Gender
</ td> <TD width = "72%> <input type =" Submit "name =" submit "value =" Submit "> </ td > </ Tr> </ table> <p> </ p> </ form> </ body> </ html> '********************* ****** Regsubmit.asp ************************* <! - # include file = "fun.inc" - > <% DIM Usernm, UserPwd, NM, Gnder, Memousernm = Request ("EDTUSERNM") UserPwd = Request ("EDTUSERPWD") NM = Request ("EDTNM") GENDER = Request ("EDTGENDER") mm = Request ("EDTMM ") IF TRIM (Usernm) =" "Then Response.write" user Name can't be empty "response.Endendiff if" to determine if the user has an IF useRexist (usernm, usernmfile) Then Response.write "user already existing"</p> <p>Response.Endend if 'write user information to individual files WriteUser UserNm, UserNmFile, UserNmWriteUser UserNm, UserPwdFile, UserPwdWriteUser UserNm, NmFile, NmWriteUser UserNm, GenderFile, GenderWriteUser UserNm, MmFile, MmResponse.Write "successful registration, the following registration information" & " <br> <br> "Response.Write" user name: "& UserNm &" <br> "Response.Write" password: "& UserPwd &" <br> "Response.Write" name: "& Nm &" < Br> "response.write" gender: "& gender &" <br> "Response.write" resume: "& mm%> <html> <body> </ body> </ html>" ****** ********************* Login.htm *********************** < HTML> <body> User login <form name = "form1" method = "post" action = "loginsubmit.asp"> <table border = "0"> <tr> <TD width = "28%> User name / TD> <TD width = "72%"> <input type = "text" name = "edtusernm"> </ td> </ tr> <tr> <td width = "28%> password </ td> <td width = "72%> <input type =" text "name =" edtuserpwd "> </ td> <TD Width =" 28% "> </ td> <td width = "72%"> <input type = "submit" name = "submit" value = "Login"> </ td> </ tr> </ table> </ form> </ body> </ html> '* ************************* Loginsubmit.asp **************************** ** <! - # include file = "fun.inc" -> <</p> <p>% Dim UserNm, UserPwdUserNm = Request ( "edtUserNm") UserPwd = Request ( "edtUserPwd") 'determines whether the user already exists if UserExist (UserNm, UserNmFile) = False then Response.Write "user name does not exist" Response.Endend ifdim SavePwdSavePwd = Readuser (usernm, userpwdfile) if SavePwd <> userpwd the response.write "password error" response.Endend IfResponse.write "login success"%> <html> <body> </ body> </ html> *** **********************************************************************************************************************************TION ****** <html> <body> user modified <form name = "form1" method = "post" action = "modifylist.asp"> <Table Border = "0"> <Tr> <TD width = " 28%> Username </ td> <td width = "72%"> <input type = "text" name = "edtusernm"> </ td> </ tr> <tr> <td width = "28% "> </ Td> <TD width =" 72% "> <input type =" submit "name =" submit "value =" call out information "> </ td> </ tr> </ table> </ form > </ body> </ html> '************************ MODIFYLIST.ASP *********** **************** <! - # include file = "fun.inc" -> <% DIM Usernmuser = request ("edtusernm") 'Determine if the user has existed If Usexist (usernm, usernmfile) = false the response.write "username does not exist" Response.Endend ifdim UserPwd, Nm, Gender, MmUserPwd = ReadUser (UserNm, UserPwdFile) Nm = ReadUser (UserNm, NmFile) Gender = ReadUser (UserNm, GenderFile) Mm = ReadUser (UserNm, MmFile)%> <html> <body> User Information Modification <form name = "form1" method = "post" action = "modifysubmit.asp"</p> <p>> <Table Border = "0"> <Tr> <TD Width = "28%> User Name </ TD> <TD Width =" 72%> <B> <font color = "# 0000ff"> <% Response.write usernm%> </ font> </ b> <input type = "hidden" name = "edtuser" value = <% = usernm% >> </ td> </ tr> <tr> <td width = "28%"> password </ td> <TD width = "72%"> <input type = "text" name = "edtuserpwd" value = <% = userpwd% >> </ td> </ tr> <TR > <Td width = "28%"> Name </ td> <TD width = "72%"> <input type = "text" name = "edtnm" value = <% = nm% >> </ td> < / tr> <tr> <TD width = "28%"> Gender </ TD> <TD width = "72%"> <input type = "text" name = "edtgender" value = <% = gender% >> </ td> </ tr> <tr> <td width = "28%> Resume </ td> <td width =" 72%> <textarea name = "EDTMM"> <% = mm%> </ Textarea> </ td> </ tr> <tr> <td width = "28%> </ td> <TD width =" 72% "> <input type =" submit "name =" Submit "Value =" Save modifications> </ td> </ tr> </ table> <p> </ p> </ form> </ body> </ html> "************* ***************** MODIFY Submit.asp ***************** <</p> <p>! - # include file = "fun.inc" -> <% DIM Usernm, UserPwd, nm, gender, mmusernm = request ("edtusernm") Userpwd = request ("edtuserpwd") nm = Request ("EDTNM") Gender = Request ("EDTGENDER") mm = request ("edtmm") if trim (usernm) = "" The response.write "username cannot be empty" response.Endendiff if "Update user information to MODIFYUSER Usernm, Usernmfile "save successful, the following updated information", UserNmModifyUser UserNm, UserPwdFile, UserPwdModifyUser UserNm, NmFile, NmModifyUser UserNm, GenderFile, GenderModifyUser UserNm, MmFile, MmResponse.Write & "<br> <br>" Response.Write "user name : "& Usernm &" <br> "Response.write" password: "& userpwd &" <br> "Response.write" Name: "& nm &" <br> "Response.write" Gender: "& Gender & GENDER & "<br>" Response.write "resume:" & mm%> <html> <body> </ body> </ html> "******************* ******************************************* <HTML> <body> User Delete <form name = "form1" method = "post" action = "deleteSubmit.asp"> <table border = "0"> <tr> <td width = "28%> Username </ td> <td width =" 72% > <Input type = "text" name = "edtusernm"> </ td> </ tr> <tr> <td width = "28%> </ td> <td width = "72%"> <input type = "submit" name = "submit" value = "delete"> </ td> </ tr> </ table> </ form> </ body> </ html ></p> <p>'***************************** DELETESUBMIT.ASP *************** ***** <! - # include file = "fun.inc" -> <% DIM Usernmuser = request ("edtusernm") 'Determines if the user has an IF UseRexist (usernm, usernmfile) = false the response. Write Response.Endend ifDeleteUser UserNm "username does not exist", UserNmFileDeleteUser UserNm, UserPwdFileDeleteUser UserNm, NmFileDeleteUser UserNm, GenderFileDeleteUser UserNm, MmFileResponse.Write "deleted successfully"%> <html> <body> </ body> </ html> '* ******************************** THE END ************** ******************** More and better articles in "Tian Mingxin Cenchuan http" -http: //vip.6to23.com/tianmingxin</p> <p>(2002/12/3 Three Gold copyright)</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-4399.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="4399" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.050</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'tN8d3Q5CwrudZ_2FGq4KrhWtP8Gaf6pIpx8AgdWN81IkxmwAtUbm_2FaP8UPKYdzXxXcgl3sRlkvITNT4nXkm40G6w_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>