sp;"<br>"
Response.Write "姓名:" & Nm & "<br>"
Response.Write "性别:" & Gender & "<br>"
Response.Write "简历:" & Mm
%>
<html>
<body>
</body>
</html>
'*************************delete.htm******************************
<html>
<body>
用户删除
<form name="form1" method="post" action="deletesubmit.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>
'*******************************deletesubmit.asp********************
<!--#include file="fun.inc"-->
<%
dim UserNm
UserNm=Request("edtUserNm")
'判断用户是否已存在
if UserExist(UserNm,UserNmFile)=False then
Response.Write "用户名不存在"
Response.End
end if
DeleteUser UserNm,UserNmFile
DeleteUser UserNm,UserPwdFile
DeleteUser UserNm,NmFile
DeleteUser UserNm,GenderFile
DeleteUser UserNm,MmFile
Response.Write "删除成功"
%>
<html>
<body>
</body>
</html>
********************the end****************************
上一页 [1] [2] [3] [4]