|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天编码|精髓|中文<%DIMFirstCHR,LastCHR,K,I,J
FirstCHR=Request("FirstCHR")FirstCHR="45217"界说肇端值
LastCHR=Request("LastCHR")LastCHR="62289"界说闭幕值
HttpAddress=Request.ServerVariables("url")不要动
SubMakeChineseWord()
Response.write"肇端值:"&FirstCHR&""
Response.write"停止值:"&LastCHR&""
Response.write"差值="&LastCHR-FirstCHR+1&"<P>"
FORJ=FirstCHRTOLastCHR
RESPONSE.WRITE"<atitle="&J&">"&CHR(J)&"</a>"
k=k+1
if(Jmod20)=0then
RESPONSE.WRITE"(最初为"&J&")<p>"
endif
NEXT
RESPONSE.WRITE"<p>共有:"&K&"中笔墨<br>"
EndSub
%>
<formaction="<%=HttpAddress%>"method="post">
<selectname="FirstCHR">
<optionvalue=""SELECTED>选择肇端值</option>
<%ForI=1to72
Response.write"<optionvalue="&(45217+K1)&">"&(45217+K1)&"-"&I&"</option>"
K1=K1+256
Next%>
</select>
<selectname="LastCHR">
<optionvalue=""SELECTED>选择肇端值</option>
<%ForI=1to72
Response.write"<optionvalue="&(45310+K2)&">"&(45310+K2)&"-"&I&"</option>"
K2=K2+256
Next%>
</select>
<inputtype="submit"value="断定">
</form>
<%
ifFirstCHR""andLastCHR""then
CallMakeChineseWord()
endif
%></p>由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|