query.asp

来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 146 行

<%
session.timeout=1200

Nav=trim(request("Nav"))
Nav2=trim(request("Nav2"))
Nav3=trim(request("Nav3"))
ProjectClass=trim(request("ProjectClass"))
ProjectClass2=trim(request("ProjectClass2"))
SearchText=trim(request("SearchText"))
SearchText2=trim(request("SearchText2"))

if trim(request("Att"))="" then
	Att="畿"
else
	Att=trim(request("Att"))
end if

if trim(request("submit"))="全部查询" then
	Att="畿"
	Nav=""
	Nav2=""
	Nav3=""
	SearchText2=""
	ProjectClass2=""
end if

set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")

if trim(request("submit"))<>"" and Nav2<>ProjectClass2 and Nav3<>ProjectClass2 then
	rs.open "select Name from tblAttribute where Mark='"&ProjectClass2&"'",conn,1,1
		if not rs.eof then
			Nav=Nav&"-->"&trim(rs("Name"))
		end if
	rs.close
end if

if trim(request("submit"))="结果查询" then
	record=""
	rs.open "select ID,ProjectID,Name from tblTemp where Attribute like '%"&ProjectClass2&"%' and Name like '%"&SearchText2&"%' order by ID Desc",conn,1,1
	if not rs.eof then
		record=rs("ProjectID")
		rs.movenext
		do while not rs.eof
			record=record&","&rs("ProjectID")
			rs.movenext
		loop
	rs.close
	conn.execute("delete from tblTemp")
	rs.open "select * from tblBase where ID in ("&record&") order by ID Desc",conn,1,1
	do while not rs.eof
		ID=rs("ID")
		Name=trim(rs("Name"))
		Address=trim(rs("Address"))
		Guimo=trim(rs("Guimo"))
		Attribute=trim(rs("Attribute"))
		Nianxian=trim(rs("Nianxian"))
		KaigongTime=trim(rs("KaigongTime"))
		Neirong=trim(rs("Neirong"))
		InputDate=trim(rs("InputDate"))
		InputTime=trim(rs("InputTime"))
		InputName=Session("UserName")
		InputLogin=Session("LoginName")
		State=trim(rs("State"))

		rs2.open "select * from tblTemp where ID is NULL",conn,1,2
		rs2.addnew
		rs2("ProjectID")=ID
		rs2("Name")=Name
		rs2("Address")=Address
		rs2("Attribute")=Attribute
		rs2("Guimo")=Guimo
		rs2("Nianxian")=Nianxian
		rs2("KaigongTime")=KaigongTime
		rs2("Neirong")=Neirong
		rs2("InputDate")=InputDate
		rs2("InputTime")=InputTime
		rs2("InputName")=InputName
		rs2("InputLogin")=InputLogin
		rs2("State")=State
		rs2.update
		rs2.close
		rs.movenext
	loop
	rs.close
	rs.open "select * from tblTemp",conn,1,1
	end if
else
	conn.execute("delete from tblTemp")
	rs.open "select * from tblBase where Attribute like '%"&ProjectClass&"%' and Name like '%"&SearchText&"%' order by ID Desc",conn,1,1
	if not rs.eof then
		do while not rs.eof
			ID=rs("ID")
			Name=trim(rs("Name"))
			Address=trim(rs("Address"))
			Guimo=trim(rs("Guimo"))
			Attribute=trim(rs("Attribute"))
			Nianxian=trim(rs("Nianxian"))
			KaigongTime=trim(rs("KaigongTime"))
			Neirong=trim(rs("Neirong"))
			InputDate=trim(rs("InputDate"))
			InputTime=trim(rs("InputTime"))
			InputName=Session("UserName")
			InputLogin=Session("LoginName")
			State=trim(rs("State"))

			rs2.open "select * from tblTemp where ID is NULL",conn,1,2
			rs2.addnew
			rs2("ProjectID")=ID
			rs2("Name")=Name
			rs2("Address")=Address
			rs2("Attribute")=Attribute
			rs2("Guimo")=Guimo
			rs2("Nianxian")=Nianxian
			rs2("KaigongTime")=KaigongTime
			rs2("Neirong")=Neirong
			rs2("InputDate")=InputDate
			rs2("InputTime")=InputTime
			rs2("InputName")=InputName
			rs2("InputLogin")=InputLogin
			rs2("State")=State
			rs2.update
			rs2.close
			rs.movenext
		loop
	rs.close
	rs.open "select * from tblTemp",conn,1,1
	end if
end if

if not rs.eof then
	rs.pagesize=10
	pagesize=rs.pagesize
	pagecount=rs.pagecount
	absolutepage=trim(request("absolutepage"))
	if absolutepage=empty then
		absolutepage=1
	else
		rs.absolutepage=absolutepage
	end if
	total=rs.recordcount
end if

num=cint(absolutepage-1)*pagesize
%>