function.asp

客户管理crm xitong ,希望能给你带来帮助

<%
	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
%>