wy_trip_solutionupasp.asp

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

<!--#include file="../../wy_trip_inc/wy_trip_cnn.inc"-->
<!--#include file="../../wy_trip_inc/wy_trip_fun.inc"-->
<%
    solname=request.QueryString("solname")
    solinfor1=request.form("solinfor1")
	solinfor2=request.form("solinfor2")
	solinfor3=request.form("solinfor3")
	solkind=request.QueryString("solkind")
	
	'response.Write(solname)
	'response.Write(solinfor1&solinfor2&solinfor3)
	if(solname<>"")then
	'=============================================
	if(solkind=0)then
	    sqlstr1="select * from  trip_solhomeland  where solname='"&solname&"'"
		sqlstr2="select * from  trip_solhomelandinfor  where solname='"&solname&"'"
	else
	    sqlstr1="select * from  trip_soloverseas  where solname='"&solname&"'"
		sqlstr2="select * from  trip_soloverseasinfor  where solname='"&solname&"'"
	end if
	set rst=server.CreateObject("adodb.recordset")
	

    i=0
	
    rst.open sqlstr1,conn,1,3
	if not (rst.eof or rst.bof) then
	     rst("solinfor1")=replace(trim(solinfor1),chr(13),"<br>")
		 rst("solinfor2")=replace(trim(solinfor2),chr(13),"<br>")
         rst("solinfor3")=replace(trim(solinfor3),chr(13),"<br>")
		 rst.update
		 i=1
	end if
	rst.close
	
	rst.open sqlstr2,conn,1,3
	if not (rst.eof or rst.bof) then
	       rst("soltime")=wytime()
		   rst.update
	end if
	rst.close
	set rst=nothing
	
	
	
	if(i=1)then
	      response.Redirect("../wy_trip_admin.asp")
	else
	     call systemerror("声明信息更新 失败!")
	end if
	'===================================
	
	else
	      if (solkind=0) then
		      sqlstr="select * from trip_soloverseas"
		  else
		      sqlstr="select * from trip_solhomeland"
		  end if	  
		  
		  set rst=server.CreateObject("adodb.recordset")
		  rst.open sqlstr,conn,1,3
		  rst.addnew
		  rst("solinfor1")=solinfor1
		  rst("solinfor2")=solinfor2
          rst("solinfor3")=solinfor3
		  rst.update
		  rst.close
		  set rst=nothing
		  
	end if
	
	
%>