打印文章

利用ASP的文件操作实现用户管理

作者：采集员文章来源：来源于网络点击数：更新时间：2005/9/10 13:33:47

" name="edtGender">
      </td>
    </tr>
    <tr>
      <td width="28%">简历</td>
      <td width="72%">
        <textarea name="edtMm"></textarea>
      </td>
    </tr>
    <tr>
      <td width="28%"> </td>
      <td width="72%">
        <input type="submit" name="Submit" value="提交">
      </td>
    </tr>

  </table>
  <p> </p>
</form>

</body>

</html>

'***************************regsubmit.asp**************************


<%
dim UserNm,UserPwd,Nm,Gender,Memo
UserNm=Request("edtUserNm")
UserPwd=Request("edtUserPwd")
Nm=Request("edtNm")
Gender=Request("edtGender")
Mm=Request("edtMm")

if trim(UserNm)="" then
  Response.Write "用户名不能为空"
  Response.End
end if

'判断用户是否已存在
if UserExist(UserNm,UserNmFile) then
  Response.Write "用户已存在"
  Response.End
end if

'写用户信息到各个文件
WriteUser UserNm,UserNmFile,UserNm
WriteUser UserNm,UserPwdFile,UserPwd
WriteUser UserNm,NmFile,Nm
WriteUser UserNm,GenderFile,Gender
WriteUser UserNm,MmFile,Mm

Response.Write "注册成功，以下为注册信息" & "<br><br>"
Response.Write "用户名：" & UserNm & "<br>"
Response.Write "密码：" & UserPwd & "<br>"
Response.Write "姓名：" & Nm & "<br>"
Response.Write "性别：" & Gender & "<br>"
Response.Write "简历：" & Mm
%>

<html>
<body>
</body>
</html>

'****************************login.htm************************
<html>

<body>
用户登陆
<form name="form1" method="post" action="loginsubmit.asp">
  <table border="0">
    <tr>
      <td width="28%">用户名</td>
      <td width="72%">
        <input type="text" name="edtUserNm">
      </td>
    </tr>
    <tr>
      <td width="28%">密码</td>
      <td width="72%">
        <input type="text" name="edtUserPwd">
      </td>
    </tr>
    <tr>
      <td width="28%"> </td>
      <td width="72%">
        <input type="submit" name="Submit" value="登陆">
      </td>
    </tr>
  </table>

</form>

</body>

</html>

'****************************loginsubmit.asp**********************


<%
dim UserNm,UserPwd
UserNm=Request("edtUserNm")
UserPwd=Request("edtUserPwd")

'判断用户是否已存在
if UserExist(UserNm,UserNmFile)=False then
  Response.Write "用户名不存在"
  Response.End
end if

dim SavePwd
SavePwd=ReadUser(UserNm,UserPwdFile)

if SavePwd<>UserPwd then
  Response.Write "密码错误"
  Response.End
end if

Response.Write "登陆成功"

%>

<html>
<body>
</body>
</html>

'***************************modify.htm*****************************
<html>

<body>
用户修改
<form name="form1" method="post" action="modifylist.asp">
  <table border="0">
    <tr>
      <td width="28%">用户名</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="调出信息">
      </td>
    </tr>
  </table>

</form>

</body>

</html>

'**************************modifylist.asp****************************

<%
dim UserNm
UserNm=Request("edtUserNm")

'判断用户是否已存在
if UserExist(UserNm,UserNmFile)=False then
  Response.Write "用户名不存在"
  Response.End
end if

dim UserPwd,Nm,Gender,Mm
UserPwd=ReadUser(UserNm,UserPwdFile)
Nm=ReadUser(UserNm,NmFile)
Gender=ReadUser(UserNm,GenderFile)
Mm=ReadUser(UserNm,MmFile)

%>
<html>
<body>
用户信息修改
<form name="form1" method="post" action="modifysubmit.asp">
  <table border="0">
    <tr>
      <td width="28%">用户名</td>
      <td width="72%">
        <b><font color="#0000ff"><%Response.Write UserNm  %></font></b>
        <input type="hidden" name="edtUserNm" value=<%=UserNm %>>
      </td>
    </tr>
    <tr>
      <td width="28%">密码</td>
      <td width="72%">
        <input type="text" name="edtUserPwd" value=<%=UserPwd %>>
      </td>
    </tr>
    <tr>
      <td width="28%">姓名</td>
      <td width="72%">
        <input type="text" name="edtNm" value=<%=Nm %>>
      </td>
    </tr>
    <tr>
      <td width="28%">性别</td>
      <td width="72%">
        <input type="text" name="edtGender" value=<%=Gender %>>
      </td>
    </tr>
    <tr>
      <td width="28%">简历</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="保存修改">
      </td>
    </tr>

  </table>
  <p> </p>
</form>

</body>

</html>

'********************************modifysubmit.asp*******************


<%
dim UserNm,UserPwd,Nm,Gender,Mm
UserNm=Request("edtUserNm")
UserPwd=Request("edtUserPwd")
Nm=Request("edtNm")
Gender=Request("edtGender")
Mm=Request("edtMm")

if trim(UserNm)="" then
  Response.Write "用户名不能为空"
  Response.End
end if

'更新用户信息到各个文件
ModifyUser UserNm,UserNmFile,UserNm
ModifyUser UserNm,UserPwdFile,UserPwd
ModifyUser UserNm,NmFile,Nm
ModifyUser UserNm,GenderFile,Gender
ModifyUser UserNm,MmFile,Mm

Response.Write "保存成功，以下为更新后的信息" & "<br><br>"
Response.Write "用户名：" & UserNm & "<br>"
Response.Write "密码：" & UserPwd &&nb

上一页 [1] [2] [3] [4] 下一页

打印本文

关闭窗口