manager_add_ok.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 60 行
ASP
60 行
<%
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:fy96@163.com │'│ │'│ 程序定做,系统开发,网站制作,提供高质量的网络产品、技术和服务!│'│ │'│ │'└─────────────────── http://www.fyasp.com ──┘%>
<%
opendataconn
id_key=trim(request("id_key"))
sname=rtrim(request("sname"))
spwd=rtrim(request("spwd"))
ip=request.serverVariables("REMOTE_ADDR")
gonggao=trim(request("gonggao"))
Type1=Trim(request("Type"))
news=trim(request("news"))
ads=trim(request("ads"))
images=trim(request("images"))
hyetype=trim(request("hyetype"))
hyedetail=trim(request("hyedetail"))
newhouse=trim(request("newhouse"))
Sphouse=trim(request("Sphouse"))
Tjhouse=trim(request("Tjhouse"))
house=trim(request("house"))
gl_old=trim(request("gl_old"))
Tjrecomco=trim(request("Tjrecomco"))
dc=trim(request("dc"))
banner=trim(request("banner"))
gbook=trim(request("gbook"))
member=trim(request("member"))
link=trim(request("link"))
peigou=trim(request("peigou"))
pinguren=trim(request("pinguren"))
pingu=trim(request("pingu"))
person=trim(request("person"))
jc=trim(request("jc"))
Zs=trim(request("Zs"))
jj=trim(request("jj"))
job=trim(request("job"))
ADMIN=trim(request("ADMIN"))
sql="insert into manager66(id_key,name,pwd,ip,gonggao,Type,news,ads,images,hyetype,hyedetail,newhouse,Sphouse,Tjhouse,house,gl_old,Tjrecomco,dc,banner,gbook,member,link,peigou,pinguren,pingu,person,jc,Zs,jj,job,ADMIN)values('"&id_key&"','"&sname&"','"&spwd&"','"&ip&"','"&gonggao&"','"&Type1&"','"&news&"','"&ads&"','"&images&"','"&hyetype&"','"&hyedetail&"','"&newhouse&"','"&Sphouse&"','"&Tjhouse&"','"&house&"','"&gl_old&"','"&Tjrecomco&"','"&dc&"','"&banner&"','"&gbook&"','"&member&"','"&link&"','"&peigou&"','"&pinguren&"','"&pingu&"','"&person&"','"&jc&"','"&Zs&"','"&jj&"','"&job&"','"&ADMIN&"')"
'response.write sql
'response.end
conn.execute sql
response.redirect"manager_del.asp"
closedataconn
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?