pro_modi_ok.asp

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

<%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%><!--#include file="../inc/conn.asp"-->
<%
loginid=trim(session("loginid"))
id=trim(request("id"))
function douhao(hj)
douhao="'" & replace(hj,"'","''") & "'"
end function
opendataconn
%>
<%
function douhao(hj)
douhao="'" & replace(hj,"'","''") & "'"
end function
oldtype=trim(request("oldtype"))
type1=douhao(trim(request("prtype")))
simg=trim(request("simg"))
bimg=trim(request("bimg"))
if simg="" then
simg=0
end if
if bimg="" then
bimg=0
end if
prname=douhao(trim(request("prname")))
guige=douhao(trim(request("guige")))
area=douhao(trim(request("area")))
color=douhao(trim(request("color")))
prjianjie=trim(request("prjianjie"))
prjianjie=douhao(replace(prjianjie,vbcrlf,"<br>"))
userid=trim(session("loginid"))
price=douhao(trim(request("price")))
ok=trim(request("ok"))
fadongji=douhao(trim(request("fadongji")))
qigang=douhao(trim(request("qigang")))
paiqi=douhao(trim(request("paiqi")))
gongyou=douhao(trim(request("gongyou")))
speed=douhao(trim(request("speed")))
bianshu=douhao(trim(request("bianshu")))
youqi=douhao(trim(request("youqi")))
sql="update shopdetail set prname="&prname&",area="&area&",price="&price&",guige="&guige&",color="&color&",prjianjie="&prjianjie&",prtype="&type1&",simg="&simg&",bimg="&bimg&",ok='"&ok&"',fadongji="&fadongji&",qigang="&qigang&",paiqi="&paiqi&",gongyou="&gongyou&",speed="&speed&",bianshu="&bianshu&",youqi="&youqi&" where id="&id&""
conn.execute sql
sql= "update shoptype set  [number]=[number]+1 where prtype="&type1&""
conn.execute sql
conn.execute "update shoptype set  [number]=[number]-1 where prtype='"&oldtype&"'"
closedataconn
%>
<script language="javascript">
alert('您的信息已修改');
history.back();
</script>