?? function.asp
字號:
<%
sub getSelect(strName,strsql,strFieldShow,strFieldValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:90;'>"
if not objrs.eof then
do while not objrs.eof
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
objrs.movenext
loop
end if
response.write "</select><input type=button value='...' class='button' onclick=Openwin(""" & strFieldShow & ".asp"");>"
end if
end sub
sub getDic(strName,strValue)
if strName<>"" then
strsql="select * from Dict" & strName
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=Dict" & strName & "_ID style='width:110;'>"
response.write "<option value='0'></option>"
if not objrs.eof then
do while not objrs.eof
if objrs.fields("Dict" & strName & "_ID") & "" = strValue & "" then
response.write "<option value=" & objrs.fields("Dict" & strName & "_ID") & " selected>" & objrs.fields("Dict_Value") & "</option>"
else
response.write "<option value=" & objrs.fields("Dict" & strName & "_ID") & ">" & objrs.fields("Dict_Value") & "</option>"
end if
objrs.movenext
loop
end if
response.write "</select><input type=button value='...' class='button' onclick=Openwin(""Dic.asp?strTable=" & strName & """);>"
end if
end sub
function getDicValue(strName)
getDicValue=""
if strName<>"" then
strsql="select Value from System_Parameter where "
strsql=strsql & " Parameter_Item='" & strName & "' "
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
if not objRs.eof then
getDicValue=objRs.fields("Value")
end if
end if
end function
Sub getUserField(strName,strValue)
response.write "<input name=""User" & strName & """ type=""text"" size=""20"" maxlength=""50"" class=""input"" value=""" & strValue & """>"
End Sub
sub getSelectNo(strName,strsql,strFieldShow,strFieldValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:70;'>"
if not objrs.eof then
do while not objrs.eof
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
objrs.movenext
loop
end if
response.write "</select>"
end if
end sub
sub getSelect150(strName,strsql,strFieldShow,strFieldValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:150;'>"
if not objrs.eof then
do while not objrs.eof
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
objrs.movenext
loop
end if
response.write "</select><input type=button value='...' class='button' onclick=Openwin(""" & strFieldShow & ".asp"");>"
end if
end sub
sub getSelectNo150(strName,strsql,strFieldShow,strFieldValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:150;'>"
if not objrs.eof then
do while not objrs.eof
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
objrs.movenext
loop
end if
response.write "</select>"
end if
end sub
sub getSelected(strName,strsql,strFieldShow,strFieldValue,strInitValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:70;'>"
if not objrs.eof then
do while not objrs.eof
if strInitValue & "" = objrs.fields(strFieldValue)& "" then
response.write "<option value=" & objrs.fields(strFieldValue) & " selected>" & objrs.fields(strFieldShow) & "</option>"
else
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
end if
objrs.movenext
loop
end if
response.write "</select><input type=button value='...' class='button' onclick=Openwin(""" & strFieldShow & ".asp"");>"
end if
end sub
sub getSelectedNo(strName,strsql,strFieldShow,strFieldValue,strInitValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:70;'>"
if not objrs.eof then
do while not objrs.eof
if strInitValue & ""=objrs.fields(strFieldValue)&"" then
response.write "<option value=" & objrs.fields(strFieldValue) & " selected>" & objrs.fields(strFieldShow) & "</option>"
else
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
end if
objrs.movenext
loop
end if
response.write "</select>"
end if
end sub
sub getSelected150(strName,strsql,strFieldShow,strFieldValue,strInitValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:150;'>"
if not objrs.eof then
do while not objrs.eof
if strInitValue & "" =objrs.fields(strFieldValue) & "" then
response.write "<option value=" & objrs.fields(strFieldValue) & " selected>" & objrs.fields(strFieldShow) & "</option>"
else
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
end if
objrs.movenext
loop
end if
response.write "</select><input type=button value='...' class='button' onclick=Openwin(""" & strFieldShow & ".asp"");>"
end if
end sub
sub getSelectedNo150(strName,strsql,strFieldShow,strFieldValue,strInitValue)
if strSql<>"" then
Set objRs = Server.CreateObject("adodb.recordset")
objRs.Open strsql,objConn,1,1
response.write "<select name=" & strName & " style='width:150;'>"
if not objrs.eof then
do while not objrs.eof
if strInitValue & ""=objrs.fields(strFieldValue) & "" then
response.write "<option value=" & objrs.fields(strFieldValue) & " selected>" & objrs.fields(strFieldShow) & "</option>"
else
response.write "<option value=" & objrs.fields(strFieldValue) & ">" & objrs.fields(strFieldShow) & "</option>"
end if
objrs.movenext
loop
end if
response.write "</select>"
end if
end sub
function getstring(str)
getstring=replace(str,"'","''")
end function
sub getDay(strNum,strInitHour,strInitMinute)
for i=0 to 23
for j=0 to 59 step strNum
if strInitHour=i and strInitMinute=j then
response.write "<option value='" & i & ":" & j & ":00' selected>" & i & ":" & j & "</option>"
else
response.write "<option value='" & i & ":" & j & ":00'>" & i & ":" & j & "</option>"
end if
next
next
end sub
sub getDaySelected(strNum,strdate)
strHour=Hour(strdate)
strMinute=Minute(strdate)
for i=0 to 23
for j=0 to 59 step strNum
if strHour=i and j=strMinute then
response.write "<option value='" & i & ":" & j & ":00' selected>" & i & ":" & j & "</option>"
else
response.write "<option value='" & i & ":" & j & ":00'>" & i & ":" & j & "</option>"
end if
next
next
end sub
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -