update_myweb.asp

来自「一个非常好的旅游网站程序.」· ASP 代码 · 共 56 行

<%@ language="vbscript"%>
<%response.Expires = 0%>
<%
if request.cookies("sp_name")="" then
  response.redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
P_shop=request.cookies("sp_name")
set rs=server.createobject("adodb.recordset")
sqltext="select * from shop where shop_name1='"&p_shop&"' "
rs.open sqltext,conn,3,3


'格式化公司简介为网页形式
p_about=server.htmlencode(request("p_about"))
p_about=replace(p_about,vbCrLf,"<br>")
p_about=replace(p_about," ","&nbsp;&nbsp;")
p_about=replace(p_about,"'","“")
p_about=replace(p_about,"""","“")

'格式化企业动态为网页形式
Enterprises=server.htmlencode(request("Enterprises"))
Enterprises=replace(Enterprises,vbCrLf,"<br>")
Enterprises=replace(Enterprises," ","&nbsp;&nbsp;")
Enterprises=replace(Enterprises,"'","“")
Enterprises=replace(Enterprises,"""","“")

'格式化合作代理为网页形式
Cooperate=server.htmlencode(request("Cooperate"))
Cooperate=replace(Cooperate,vbCrLf,"<br>")
Cooperate=replace(Cooperate," ","&nbsp;&nbsp;")
Cooperate=replace(Cooperate,"'","“")
Cooperate=replace(Cooperate,"""","“")

'格式化诚聘英才为网页形式
Recruitment=server.htmlencode(request("Recruitment"))
Recruitment=replace(Recruitment,vbCrLf,"<br>")
Recruitment=replace(Recruitment," ","&nbsp;&nbsp;")
Recruitment=replace(Recruitment,"'","“")
Recruitment=replace(Recruitment,"""","“")


'开始更新网站资料
rs("P_about")=P_about ' 公司简介
rs("Enterprises")=Enterprises ' 企业动态
rs("Cooperate")=Cooperate ' 合作代理
rs("Recruitment")=Recruitment ' 诚聘英才

rs.update
rs.close
conn.close
 response.redirect "messagebox.asp?msg=已成功修改网站资料！"
%>