WEB源码(ASP,PHP,...)

开发平台：
DOS

user_edit.asp：源码内容
							<!--#include file="conn.asp"-->
<!--#include file="checkuser.asp"-->
<!--#include file="md5.asp" -->
<%
dim action
action=request("action")
select case action
case "edit" 
passwd=request.form("pwd")
passwd1=md5(trim(request.form("pwd")))   
set rs=server.createobject("adodb.recordset") 
sql="select * from userinfo where userid="&userid
rs.open sql,conn,1,3
rs("fullname") = trim(request.Form("fullname"))
rs("depname") = trim(request.Form("depname"))
if passwd<>rs("pwd") then
rs("pwd")=passwd1
end if
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('修改成功！');</script>"
response.write "<meta http-equiv=""refresh"" content=""0;url=document.asp"">"
response.end
end select
%>
<html>
<head>
<title>∷汽车4S店配件仓储管理系统:.</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript src="css/User_Info_Modify.js"></SCRIPT>
<style type="text/css">
<!--
td {  font-family: "宋体"; font-size: 9pt}
body {  font-family: "宋体"; font-size: 9pt}
select {  font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt} 
-->
</style>
</head>
<BODY topMargin=0 rightMargin=0 leftMargin=0>       
<!--#include file="top.asp"--><br>
<br>
<fieldset style="width:50%"><legend>编辑个人资料</legend>
<table width="300" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
          <form name="powersearch" method="post" action="user_edit.asp" ><input name="action" value="edit" type="hidden">
		  <%set rs=server.CreateObject("ADODB.RecordSet")
          sql="select * from userinfo where userid="&userid
          rs.open sql,conn,1,1
		  %>
		  <tr><td width="100" align="right" height="22">用户名：&nbsp;</td><td width="200">&nbsp;<%=name%></td></tr>
		  <tr><td width="100" align="right" height="22">密 码：&nbsp;</td><td width="200">&nbsp;<input name="pwd"  type="password"  size="10"  value='<%= rs("pwd")%>'></td></tr>
		  <tr><td width="100" align="right" height="22">全 名：&nbsp;</td><td width="200">&nbsp;<input name="fullname"  type="text"  size="10"  value='<%= rs("fullname")%>'></td></tr>
		  <tr><td width="100" align="right" height="22">部 门：&nbsp;</td><td width="200">&nbsp;<select name="depname"  size="1" style='width:80'>
			<%		
			set rs3=server.createobject("adodb.recordset")
		   rs3.open "select * from department",conn,1,1
		   if not rs3.eof then
		   do while not rs3.eof
			%>
			<option <% if trim(rs3("depname"))=trim(rs("depname")) then
			%> selected="selected"<%end if%>><%=rs3("depname")%></option>
			<%
			rs3.movenext
			loop
			end if
			rs3.close
			set rs3=nothing
			%>
			</select></td></tr>
			<tr><td colspan="4" height="30" align="center"><input type="submit"  value="编辑"></td></tr>
			<%
			rs.close
			set rs=nothing
			%>
			</form>
		  </table>
</fieldset>
</body>
</html>

						