📄 linesave.asp
字号:
<!--#include file="../conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>旅游线路</title>
</head>
<body>
<%
Function ChangeChr(str)
ChangeChr = Replace(str," "," ")
ChangeChr = Replace(ChangeChr,Chr(13),"<br>")
ChangeChr = Replace(ChangeChr,"'","‘")
End Function
Dim StrAction
'得到动作参数，如果为add则表示添加操作，如果为update则表示更改操作
StrAction = Request.QueryString("action")
Dim LineName,LineId
LineId = 1
'取得线路基本信息
LineName = Trim(Request("linename"))
LineName = Replace(LineName ,"'","‘")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs1 = Server.CreateObject("ADODB.RecordSet")
'增加记录
If StrAction="add" Then
'判断线路是否存在
sql = "SELECT * FROM Line WHERE LineName = '" & LineName & "'"
rs1.Open sql, Conn, 1, 1
If Not rs1.EOF Then
Response.Write("当前线路已经存在，请<a href='javascript:history.go(-1);'>返回</a>重新输入")
Response.End
End If
'在数据库表Line中插入新线路
sql = "SELECT * FROM Line"
rs.Open sql,Conn,1,3
rs.AddNew
rs("LineName")= LineName
rs("AreaId") = CInt(Request("area"))
rs("Days") = CInt(Request("days"))
rs("People") = Request("type")
rs("PostTime") = Now()
rs("Special") = ChangeChr(Request("special"))
rs("Tips") = ChangeChr(Request("tips"))
rs("SafeTip") = ChangeChr(Request("safetips"))
rs("LineRef") = ChangeChr(Request("lineref"))
rs("Traffic") = ChangeChr(Request("traffic"))
rs("Hotel") = ChangeChr(Request("hotel"))
rs("Dinner") = ChangeChr(Request("dinner"))
rs("Entertainment") = ChangeChr(Request("entertmt"))
rs("Place") = ChangeChr(Request("place"))
rs("Shopping") = ChangeChr(Request("shopping"))
rs("EcoPrice") = CInt(Request("ecoprc"))
rs("StdPrice") = CInt(Request("stdprc"))
rs("ExpPrice") = CInt(Request("expprc"))
rs("CldPrice") = CInt(Request("cldprc"))
rs("CateId") = CInt(Request("Cate"))
rs.Update
sql = "Select Max(LineId) AS id From Line"
Set rs = Conn.Execute(sql)
If NOT rs.EOF Then
LineId = rs("id")
End If
Response.Redirect "LineEdit.asp?lid="&LineId
Else
'更改此商品信息
id = Request.QueryString("id")
sql="SELECT * FROM Line WHERE LineId=" & CInt(id)
rs.Open sql, Conn, 1, 3
'判断线路名称是否改变
If rs("LineName") <> LineName Then
'如果改变，则判断新名称是否存在
sql = "SELECT * FROM Line WHERE LineName = '" & LineName & "'"
rs1.Open sql, Conn, 1, 1
If Not rs1.EOF Then
Response.Write("当前线路已经存在，请<a href='javascript:history.go(-1);'>返回</a>重新输入")
Response.End
End If
End If
rs("LineName")= LineName
rs("AreaId") = CInt(Request("area"))
rs("Days") = Cint(Request("days"))
rs("People") = Request("type")
rs("PostTime")=now()
rs("Special") = ChangeChr(Request("special"))
rs("Tips") = ChangeChr(Request("tips"))
rs("SafeTip") = ChangeChr(Request("safetips"))
rs("LineRef") = ChangeChr(Request("lineref"))
rs("Traffic") = ChangeChr(Request("traffic"))
rs("Hotel") = ChangeChr(Request("hotel"))
rs("Dinner") = ChangeChr(Request("dinner"))
rs("Entertainment") = ChangeChr(Request("entertmt"))
rs("Place") = ChangeChr(Request("place"))
rs("Shopping") = ChangeChr(Request("shopping"))
rs("EcoPrice") = CInt(Request.Form("ecoprc"))
rs("StdPrice") = CInt(Request.Form("stdprc"))
rs("ExpPrice") = CInt(Request.Form("expprc"))
rs("CldPrice") = CInt(Request.Form("cldprc"))
rs("CateId") = CInt(Request("Cate"))
rs.Update
End If
Set rs = Nothing
Response.write "<h3>旅游线路成功保存</h3>"
%>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -