'HTML模板函数
'------------------------------------------------------------------------------------
'在数据库中选取列并将值序列制作成可以插入前端页面选择的列表框或者下拉框
Function HTML_GenSelectItem(ValueFieldName,DisplayFieldName,SqlBody,DefaultValue,UrlEncode)
'response.write("<SELECT id=select1 name=DDLB_1 style='HEIGHT: 0px; WIDTH: 0px' > ")
if not Str_Contains(LogicVariable,SYS_VarType(UrlEncode)) then
UrlEncode = False
end if
Dim TempRecordSet,RtnStr,DefaultValueInList
DefaultValueInList = False
set TempRecordSet = Server.CreateObject("ADODB.Recordset")
'Response.write sqlbody+crlf
RtnStr = DB_OpenTable(TempRecordSet,SqlBody,1,1) 'AdOpenForwardOnly,AdLockReadOnly
if Sys_Ok(RtnStr) then
TempRecordSet.MoveFirst
do while not TempRecordSet.eof
ItemValue = Str_anytostr(TempRecordSet.fields(ValueFieldName))
if UrlEncode then
ItemValue = server.URLEncode(ItemValue)
end if
ItemDispStr = Str_anytostr(TempRecordSet.fields(DisplayFieldName))
if (ItemValue = DefaultValue) or (ItemDispStr=DefaultValue) then
DefaultValueInList = True
Response.write("<OPTION selected VALUE='"+ItemValue+"'>"+ItemDispStr+"</OPTION>")
else
Response.write("<OPTION VALUE='"+ItemValue+"'>"+ItemDispStr+"</OPTION>")
end if
TempRecordSet.MoveNext
loop
Response.Write "Asdf"
TempRecordSet.close
end if
'if not DefaultValueInList then
' Response.write("<OPTION selected VALUE='"+DefaultValue+"'>"+DefaultValue+"</OPTION>")
'end if
' Response.Write("<OPTION VALUE=''></OPTION>")
'Response.Write("</SELECT>")
End Function