<%Response.Buffer=true response.expires=0 myname=Session("myname") if myname="" then response.end if request.form("B1")="确认" then conn.Execute("UPDATE user SET f_size="&request("sSize")&",l_height="&request("LHeight")&" WHERE username='"&myname&"'")%> <%else set Rs=conn.execute("select f_size,l_height from user where username='"&myname&"'") if rs.bof or rs.eof then response.end %>

修改字体设置

大小: pt 间距:

设置字体后，需要按清屏，对话区字体才会发生改变。

<%end if%>