pinguren_modi_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 69 行

<%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%><!--#include file="../inc/conn.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
function douhao(hj)
douhao= replace(hj,"'","") 
end function
opendataconn
youname=douhao(trim(request("youname")))
xb=douhao(trim(request("xb")))
shenfenz=douhao(trim(request("shenfenz")))
zhiye=douhao(trim(request("zhiye")))
company=douhao(trim(request("company")))
tel=douhao(trim(request("tel")))
email=douhao(trim(request("email")))
coaddr=douhao(trim(request("coaddr")))
cotel=douhao(trim(request("cotel")))
jianjie=trim(request("jianjie"))
jianjie=douhao(replace(jianjie,vbcrlf,"<br>"))
ip=request.ServerVariables("remote_addr")
img=trim(request("img"))
ok=trim(request("ok"))
if ok="" then
ok=0
else
ok=1
end if
id=trim(request("id"))
pwd=douhao(trim(request("pwd1")))

set rs= Server.CreateObject("ADODB.Recordset")
	rs.Open "select * from pinguren where id="&id&"",Conn,3,3
	rs("pwd")=pwd
	rs("youname")=youname
    rs("xb")=xb
    rs("shenfenz")=shenfenz
    rs("zhiye")=zhiye
    rs("company")=company
    rs("tel")=tel
    rs("email")=email
    rs("coaddr")=coaddr
    rs("cotel")=cotel
    rs("jianjie")=jianjie
    rs("ip")=ip
    rs("img")=img
    rs("ok")=ok
	rs.Update
	rs.Close
	set rs = nothing 
	response.redirect "pinguren_del.asp"
closedataconn
%>