test.asp

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

<%
ReadAtt="(1:1),(1:2),(1:3),(1:4),(1:5),(1:6),(1:7),(2:1),(2:2),(2:3),(2:4),(2:5),(2:6),(2:7),(2:8),(2:9),(2:10),(2:11),(2:12),(2:13),(3:1),(3:2),(3:3),(3:4),(3:5),(4:1),(4:2),(4:3),(4:4),(4:5),(4:6),(4:7),(4:8),(4:10),(4:11),(4:12),(4:13),(4:14),(4:15),(4:16),(4:17),(4:18),(4:19),(4:20),(4:21),(4:22),(4:23),(4:24),(5:1),(5:2),(5:3),(5:5),(5:6),(6:1),(6:2),(6:3),(6:4),(7:1),(7:2),(8:1),(8:2),(9:1),(9:2),(10:1),(10:2),(10:3),(10:4),(10:5),(10:6),(10:7),(10:8),(10:9),(10:10),(10:11),(10:21),(10:22)"
'Sqlstr="Select * From tblBase where Department=1"
if ReadAtt<>"" then
	if Instr(1,ReadAtt,",",1)<1 then
		Sqlstr=Sqlstr&" or Attribute like '%"&ReadAtt&"%'"
	else
		E=Instr(1,ReadAtt,",",1)
		Str=Mid(ReadAtt,1,E-1)
		'Sqlstr=Sqlstr&" or Attribute like '%"&Str&"%'"
		Sqlstr=Sqlstr&"<br>"&Str
		ReadAtt=Replace(ReadAtt,"","",E+1,1)
		response.write ReadAtt&"<br>"
		do while Instr(E,ReadAtt,",",1)
			E=Instr(1,ReadAtt,",",1)
			Str=Mid(ReadAtt,1,E-1)
			'Sqlstr=Sqlstr&" or Attribute like '%"&Str&"%'"
			Sqlstr=Sqlstr&"<br>"&Str
			ReadAtt=Replace(ReadAtt,"","",E+1,1)
			response.write ReadAtt&"<br>"
		loop
		Str=ReadAtt
		Sqlstr=Sqlstr&"<br>"&Str
	end if
end if
%>
<%=ReadAtt%><br>
<%=Sqlstr%>