st_modify.asp

ASPkaifa 11111111111111111111111

<%
if request.Cookies("user")<>"管理员" then
response.Write("未知来源！请先登陆！")
response.End()
end if
 %>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
dim post_name,tidai,resl,posname
posname=trim(request("txt_prename"))
	UserId=trim(request("txt_id"))
	set rsUser=server.createobject("adodb.recordset")
	sqltext="select * from stinfor where st_id="&UserId&""
	rsUser.open sqltext,conn,3,3
	tidai=trim(Request("txt_name"))
		'必添项

		rsUser("st_name")=Request("txt_name")
    	rsUser("st_date")=Request("txt_date")
		rsUser("st_jj")=Request("txt_jj")
		rsUser("st_ren")=Request("txt_ren")
		rsUser("st_pwd")=Request("txt_pwd")
		rsUser("st_state")=Request("txt_state")
		rsUser("st_phone")=Request("txt_phone")
		rsUser("st_address")=Request("txt_address")
		rsUser("st_zhy")=Request("txt_zhy")
		rsUser("st_email")=Request("txt_email")
		rsUser.update
		rsUser.close
	
       	set rsUser=server.createobject("adodb.recordset")
	    sqltext="select hy_st from hyinfor where hy_st like '%"&posname&"%'"
	    rsUser.open sqltext,conn,3,3
	
		while not rsUser.Eof
    
	  post_name=posname
       resl=trim(rsUser("hy_st"))
	   post_name = replace(""&resl&"", ""&post_name&"",""&tidai&"")
		rsUser("hy_st") = trim(post_name)
		rsUser.MoveNext()
	
      Wend

	'	rsUser.update
		rsUser.close
	
       	set rsUser=server.createobject("adodb.recordset")
	    sqltext="select hy_st from hydsh where hy_st like '%"&posname&"%'"
	    rsUser.open sqltext,conn,3,3
		%>
		<%
		while not rsUser.Eof
         %>
       <%
	  post_name=posname
       resl=trim(rsUser("hy_st"))
	   post_name = replace(""&resl&"", ""&post_name&"",""&tidai&"")
		rsUser("hy_st") = trim(post_name)
		rsUser.MoveNext()
		%>
		<%
      Wend
	  %>
	  
	  <%
	'	rsUser.update
		rsUser.close
		 conn.close
		response.write "<script language=JavaScript>{window.alert('资料修改成功！');window.location.href='admin_st_edit.asp'}</script>"
	response.end
%>