<% 'Define Variable dim mGrade,m_SQL,mFlag,mBgColor 'initialization mFlag=true'add 'Display if request("action")="edit" then m_SQL="Select * From Tour_Hotel Where F_ID="&Request.QueryString("ModifyID") Set rs = conn.Execute(m_SQL) if Not rs.Eof then m_UserName = rs("F_UserName") m_HotelName = rs("F_HotelName") m_CityTypeID = rs("F_CityTypeID") m_AreaTypeID = rs("F_AreaTypeID") m_Website = rs("F_Website") m_StarGradeTypeID = rs("F_StarGradeTypeID") m_Email = rs("F_Email") m_Place = rs("F_Place") m_Tel = rs("F_Tel") m_Fax = rs("F_Fax") m_Address = rs("F_Address") m_Intro = rs("F_Intro") m_Image = rs("F_Image") m_Image2 = rs("F_Image2") m_Image3 = rs("F_Image3") m_Image4 = rs("F_Image4") m_Image5 = rs("F_Image5") End if mFlag=false rs.Close end if if Request.ServerVariables("REQUEST_METHOD")="POST" then m_TypeID = Request.Form("TypeID") if instr(m_TypeID,":") <> 0 then m_CityTypeID = mid(m_TypeID,1,instr(m_TypeID,":")-1) m_AreaTypeID = mid(m_TypeID,instr(m_TypeID,":")+1) else m_CityTypeID = 0 m_AreaTypeID = 0 end if m_HotelName = checkStr(Trim(Request.Form("txtHotelName"))) m_Place = checkStr(Trim(Request.Form("txtPlace"))) m_StarGradeTypeID = checkStr(Trim(Request.Form("selStarGradeTypeID"))) m_UserName = checkStr(Trim(Request.Form("txtUserName"))) m_Password = checkStr(Trim(Request.Form("txtPassword"))) m_Password=md5(m_Password,cBBRMd5Byte) m_Email = checkStr(Trim(Request.Form("txtEmail"))) m_Tel = checkStr(Trim(Request.Form("txtTel"))) m_Fax = checkStr(Trim(Request.Form("txtFax"))) m_Address = checkStr(Trim(Request.Form("txtAddress"))) m_WebSite = checkStr(Trim(Request.Form("txtWebSite"))) m_Image = checkStr(Trim(Request.Form("txtImage"))) m_Image2 = checkStr(Trim(Request.Form("txtImage2"))) m_Image3 = checkStr(Trim(Request.Form("txtImage3"))) m_Image4 = checkStr(Trim(Request.Form("txtImage4"))) m_Image5 = checkStr(Trim(Request.Form("txtImage5"))) m_Intro = checkStr(rTrim(Request.Form("txtIntro"))) if Request.Querystring("action")="Insert" then m_SQL = "Select * From Tour_Hotel Where F_UserName='"&mUserName&"'" Set rs = conn.Execute(m_SQL) if not rs.Eof then rs.Close call msgbox("对不起，该用户名已存在，请更换用户名后再试",1) else rs.Close m_Sql = "Insert Into Tour_Hotel(F_UserName,F_Password,F_CityTypeID,F_AreaTypeID,F_HotelName,F_Place,F_StarGradeTypeID,F_Intro,F_Address,F_Tel,F_Fax,F_Email,F_Website,F_Image,F_Image2,F_Image3,F_Image4,F_Image5)" m_Sql = m_Sql + "Values('"&m_UserName&"','"&m_Password&"',"&m_CityTypeID&","&m_AreaTypeID&",'"&m_HotelName&"','"&m_Place&"',"&m_StarGradeTypeID&",'"&m_Intro&"','"&m_Address&"','"&m_Tel&"','"&m_Fax&"','"&m_Email&"','"&m_Website&"','"&m_Image&"','"&m_Image2&"','"&m_Image3&"','"&m_Image4&"','"&m_Image5&"')" conn.Execute(m_Sql) response.redirect "Tour_HotelManage.asp?action=IsInsert&pageno="&Request("pageno") end if '//rs.eof else m_SQL = "UPDATE Tour_Hotel SET" m_SQL = m_SQL+" F_UserName='"&m_UserName&"'," if m_Password <> "" then m_SQL = m_SQL+" F_Password='"&m_Password&"'," m_SQL = m_SQL+" F_HotelName='"&m_HotelName&"'," m_SQL = m_SQL+" F_Email='"&m_Email&"'," m_SQL = m_SQL+" F_Website='"&m_WebSite&"'," m_SQL = m_SQL+" F_Place='"&m_Place&"'," m_SQL = m_SQL+" F_Address='"&m_Address&"'," m_SQL = m_SQL+" F_Tel='"&m_Tel&"'," m_SQL = m_SQL+" F_Fax='"&m_Fax&"'," m_SQL = m_SQL+" F_CityTypeID="&m_CityTypeID&"," m_SQL = m_SQL+" F_AreaTypeID="&m_AreaTypeID&"," m_SQL = m_SQL+" F_StarGradeTypeID="&m_StarGradeTypeID&"," m_SQL = m_SQL+" F_Intro='"&m_Intro&"'," m_SQL = m_SQL+" F_Image='"&m_Image&"'," m_SQL = m_SQL+" F_Image2='"&m_Image2&"'," m_SQL = m_SQL+" F_Imag