<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
无标题文档<%
dim x,y,z,x1,y1
for x=1 to 100
for y=1 to 100
z=100-x
x1=x
y1=y
next
next
response.write x
response.write y
if x1+y1=100 and 4*x1+y1/4=100 then
response.write"x1="&x1
response.write"
"
response.write"y1="&y1
end if
%>
