setpostalcode.asp

来自「这是一个很小的电子商务网站」· ASP 代码 · 共 45 行

<!--#include file="conn.asp"-->
<!--#include file="session1.asp"-->
<%
dim id,youbian,dizhiname,danweino,i
if request("action")="update" then
    for i=1 to request.form("id").count
	id=replace(request.form("id")(i),"'","")
	youbian=replace(request.form("youbian")(i),"'","")
	dizhiname=replace(request.form("dizhiname")(i),"'","")
	If len(youbian)<>6 Then
		response.Write "<script language='javascript'>alert('请正确填写邮编！');javascript:history.go(-1);</script>"
		response.end
	end if

conn.execute("update sh_youbian set youbian="&youbian&",dizhiname='"&dizhiname&"' where id="&id)
next
conn.close
set conn=nothing
'response.write "<p align=center><font color=red>邮编设置成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""0;url=ManagePostalcode.asp"">"
end if


if request("action")="add" then
	dizhiname=trim(request("dizhiname"))
	youbian=request.form("youbian")
	If len(youbian)<>6 Then
		response.Write "<script language='javascript'>alert('请正确填写邮编！');javascript:history.go(-1);</script>"
		response.end
	end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from sh_youbian",conn,1,3
rs.addnew
rs("dizhiname")=dizhiname
rs("youbian")=youbian
rs.update
rs.close
set rs=nothing

conn.close
set conn=nothing
'response.write "<p align=center><font color=red>邮编添加成功!<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""0;url=ManagePostalcode.asp"">"
end if
%>