开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 其他行业 > 查看源码
wy_trip_solutionaddnewasp.asp
资源名称：lyxxgl.rar　[点击查看]
上传用户：hnxqingdao
上传日期：2013-05-22
资源大小：1283k
文件大小：2k
源码类别：

其他行业

开发平台：

ASP/ASPX

wy_trip_solutionaddnewasp.asp：源码内容
  1. <!--#include file="../../wy_trip_inc/wy_trip_cnn.inc"-->
  2. <!--#include file="../../wy_trip_inc/wy_trip_fun.inc"-->
  3. <%
  4.    solkind=request.QueryString("solkind")
  5.    solname=trim(request.Form("solname"))
  6.    soladdress=trim(request.Form("soladdress"))
  7.    soltype=trim(request.Form("soltype"))
  8.    solabode=trim(request.Form("solabode"))
  9.    solmoney=trim(request.Form("solmoney"))
  10.    solnote=trim(request.Form("solnote"))
  11.    soltime=trim(request.Form("soltime"))
  13.    
  14.    'response.Write(solkind&"<br>")
  15.    'response.Write(solname&"<br>")
  16.    'response.Write(soladdress&"<br>")
  17.    'response.Write(soltype&"<br>")
  18.    'response.Write(solabode&"<br>")
  19.    'response.Write(solmoney&"<br>")
  20.    'response.Write(solnote&"<br>")
  21.    'response.Write(soltime&"<br>")
  22.    
  23.    
  24.    'deal solnote three part
  25.    strlength=wystrlenonethird(solnote)
  26.    'response.write("old data :"&solnote&"<br>")
  27.    'response.write("len :"&strlength&"<br>")
  28.    
  29.    solinfor1=left(solnote,strlength)
  30.    'response.write("solinfor1 :"&solinfor1&"<br>")
  31.    
  32.    solinfor2=mid(solnote,strlength,strlength)
  33.    'response.write("solinfor2 :"&solinfor2&"<br>")
  34.    
  35.    p1=strlength * 2
  36.    p2=len(solnote) - p1+1 
  37.    
  38.    solinfor3=Mid(solnote,p1,p2)
  39.    'response.write("solinfor3 :"&solinfor3&"<br>")
  40.    
  41.    
  42.    
  43.    ' set sqlstr information
  44.    if(solkind=0) then
  45.        sqlstr1="select * from trip_solhomeland"
  46.    sqlstr2="select * from trip_solhomelandinfor"
  47.    else
  48.        sqlstr1="select * from trip_soloverseas"
  49.    sqlstr2="select * from trip_soloverseasinfor"
  50.    end if
  51.    ' add item and source "solname" keep two tabel same!!
  52.    set rst=server.CreateObject("adodb.recordset")
  53.    rst.open sqlstr1,conn,1,3
  54.    rst.addnew
  55.    rst("solname")=solname
  56.    rst("solinfor1")=wynote(solinfor1)
  57.    rst("solinfor2")=wynote(solinfor2)
  58.    rst("solinfor3")=wynote(solinfor3)
  59.    rst.update
  60.    rst.close
  61.    set rst=nothing
  62.    
  63.    ' add tiem 
  64.    set rst=server.CreateObject("adodb.recordset")
  65.    rst.open sqlstr2,conn,1,3
  66.    rst.addnew
  67.    rst("solname")=solname
  68.    rst("soladdress")=soladdress
  69.    rst("soltype")=soltype
  70.    rst("solabode")=solabode
  71.    rst("solmoney")=solmoney
  72.    rst("solnote")=solnote
  73.    rst("soltime")=soltime
  74.    rst.update
  75.    rst.close
  76.    set rst=nothing
  77.    
  78.    'pagename="../wy_trip_solutionaddnew2.asp?solkind="&solkind
  79.    'pagename=pagename&"&tsolname="&solname 
  80.    pagename="../wy_trip_solutionaddnew3.asp?tsolname="&solname
  81.    pagename=pagename&"&solkind="&solkind
  82.    
  83.    response.Redirect(pagename)
  84.    
  85. %>