addsys.asp

机票预定系统 各个模块的设计-ticket reservation systems detailed design system modules of the design

<!--#include file="include/conn.asp"-->
<%
	if request.form("Customerid")<>"" or request.form("Usermd5")<>"" then
	dim r
	set r=server.createobject("adodb.recordset")
	sql="select * from system "

	r.open sql,conn,1,3
		if r.eof or r.bof then
			Response.Write("没有用户信息")
		else
	'r.addnew					
	r.fields(1)=request.form("CompanyName")
	r.fields(2)=request.form("Bank_url")
	r.fields(3)=request.form("Gogo_url")
	r.fields(4)=request.form("Server_url")
	r.fields(5)=request.form("Customerid")
	r.fields(6)=request.form("PhoneNumber")
	r.fields(7)=request.form("OfficeNo")
	r.fields(8)=request.form("ServiceURL")
	r.fields(9)=request.form("Mobile")
	r.fields(10)=request.form("Email")
	r.fields(11)=request.form("UEmail")
	r.fields(12)=request.form("PEmail")
	r.fields(13)=request.form("SMTP")
	r.fields(14)=request.form("FaxNum")
	r.fields(15)=request.form("TelService")
	r.fields(16)=request.form("TelCenter")
	r.fields(17)=request.form("FreetTel")
	r.fields(18)=request.form("QQ")
	r.fields(19)=request.form("Msn")
	r.fields(20)=request.form("Email")
	r.fields(21)=request.form("Emailinfo")
	r.fields(22)=request.form("Usermd5")

	'tmp(0)=r.fields(0)
				r.update
				r.close
				set r=nothing
				session("TestCustomerID")=request.form("Customerid")
				session("Usermd5")=request.form("Usermd5")
				session("Server_url")=request.form("Server_url")
			Response.Write("<script>alert('用户信息修改完成，为了安全，请重新登录系统!');document.location='style.asp';</script>")
		end if
	end if
%>