wy_trip_solutionaddnewasp.asp

旅游信息管理系统,带论文,可作为课程设计参考资料

<!--#include file="../../wy_trip_inc/wy_trip_cnn.inc"-->
<!--#include file="../../wy_trip_inc/wy_trip_fun.inc"-->
<%
   solkind=request.QueryString("solkind")
   solname=trim(request.Form("solname"))
   soladdress=trim(request.Form("soladdress"))
   soltype=trim(request.Form("soltype"))
   solabode=trim(request.Form("solabode"))
   solmoney=trim(request.Form("solmoney"))
   solnote=trim(request.Form("solnote"))
   soltime=trim(request.Form("soltime"))

   
   'response.Write(solkind&"<br>")
   'response.Write(solname&"<br>")
   'response.Write(soladdress&"<br>")
   'response.Write(soltype&"<br>")
   'response.Write(solabode&"<br>")
   'response.Write(solmoney&"<br>")
   'response.Write(solnote&"<br>")
   'response.Write(soltime&"<br>")
   
   
   'deal solnote three part
   strlength=wystrlenonethird(solnote)
   'response.write("old data :"&solnote&"<br>")
   'response.write("len :"&strlength&"<br>")
   
   solinfor1=left(solnote,strlength)
   'response.write("solinfor1 :"&solinfor1&"<br>")
   
   solinfor2=mid(solnote,strlength,strlength)
   'response.write("solinfor2 :"&solinfor2&"<br>")
   
   p1=strlength * 2
   p2=len(solnote) - p1+1 
   
   solinfor3=Mid(solnote,p1,p2)
   'response.write("solinfor3 :"&solinfor3&"<br>")
   
   
   
   ' set sqlstr information
   if(solkind=0) then
       sqlstr1="select * from trip_solhomeland"
	   sqlstr2="select * from trip_solhomelandinfor"
   else
       sqlstr1="select * from trip_soloverseas"
	   sqlstr2="select * from trip_soloverseasinfor"
   end if
   ' add item and source "solname" keep two tabel same!!
   set rst=server.CreateObject("adodb.recordset")
   rst.open sqlstr1,conn,1,3
   rst.addnew
   rst("solname")=solname
   rst("solinfor1")=wynote(solinfor1)
   rst("solinfor2")=wynote(solinfor2)
   rst("solinfor3")=wynote(solinfor3)
   rst.update
   rst.close
   set rst=nothing
   
   ' add tiem 
   set rst=server.CreateObject("adodb.recordset")
   rst.open sqlstr2,conn,1,3
   rst.addnew
   rst("solname")=solname
   rst("soladdress")=soladdress
   rst("soltype")=soltype
   rst("solabode")=solabode
   rst("solmoney")=solmoney
   rst("solnote")=solnote
   rst("soltime")=soltime
   rst.update
   rst.close
   set rst=nothing
   
   'pagename="../wy_trip_solutionaddnew2.asp?solkind="&solkind
   'pagename=pagename&"&tsolname="&solname 
   pagename="../wy_trip_solutionaddnew3.asp?tsolname="&solname
   pagename=pagename&"&solkind="&solkind
   
   response.Redirect(pagename)
   
%>