<!--#include file="inc/conn.asp"-->
<%
'数据来源
Dim eTable,eSort,SortID,ItemID,action
eTable = Prefix&eims
TypeID = Int(CheckSql(Request.Querystring("TypeID")))
ItemID = Int(CheckSql(Request.Querystring("ItemID")))
Action = CheckSql(Trim(Request.Querystring("Action")))

Wed_Lot_ID=TypeID

function vDate(fDstr)
vDate=fDstr
end function
%>