wy_trip_solutioninforupasp.asp

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

<!--#include file="../../wy_trip_inc/wy_trip_cnn.inc"-->
<!--#include file="../../wy_trip_inc/wy_trip_fun.inc"-->
<%

      tsolname=request.QueryString("tsolname")
	  tablename=request.QueryString("tablename")
	  
	  
	  solname=request.Form("solname")
	  soladdress=request.Form("soladdress")
	  soltype=request.Form("soltype")
	  solabode=request.Form("solabode")
	  solmoney=request.Form("solmoney")
	  solnote=request.Form("solnote")
	  soltime=request.Form("soltime")
	  
	  sqlstr="select * from "&tablename&" where solname='"&tsolname&"'"
	 
	   i=0
	  'response.Write(sqlstr&"<br>")
	  'response.Write(solname&"<br>")
	  'response.Write(soladdress&"<br>")
	  'response.Write(soltype&"<br>")
	  'response.Write(solabode&"<br>")
	  'response.Write(solmoney&"<br>")
	  'response.Write(soltime&"<br>")
	  'response.Write(solnote&"<br>")
	  set rst=server.CreateObject("adodb.recordset")
	  rst.open sqlstr,conn,1,3
	  if not (rst.eof or rst.bof) then
	       rst("solname")=trim(solname)
		   'rst("solname")="wy"
		   rst("soladdress")=trim(soladdress)
		   rst("soltype")=trim(soltype)
		   rst("solabode")=trim(solabode)
		   rst("solmoney")=trim(solmoney)
		   rst("solnote")=trim(solnote)
		   rst("soltime")=wytime()
		   rst.update
		   i=1
	  end if
	  
	  rst.close
	  set rst=nothing
	  
	  set rst=server.CreateObject("adodb.recordset")
	   'update the other database key word!!!
	  tablename=left(tablename,len(tablename)-5)
	  sqlstr="select * from "&tablename&" where solname='"&tsolname&"'"
	  rst.open sqlstr,conn,1,3
	  if not (rst.eof or rst.bof) then
	       rst("solname")=trim(solname)
	       rst.update
	  end if
	  rst.close
	  set rst=nothing
	  
	  
	  if (i=1) then
	      response.Redirect("../wy_trip_admin.asp")
	  else
	       call systemerror("?üD?꧰ü")
	  end if	
	  
%>