ʵÀý£ºaspÉú³ÉWORDÎĵµ
<Html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Éú³ÉWordÎĵµ</title>
</head>
<script language="vbscript">
sub builddoc()
On Error Resume Next
Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "û·¨±£´æÎªWordÎļþ,ÇëÕýÈ·°²×°Word97"
else
wApp.visible = True
wApp.Documents.add
wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = True
wApp.Selection.TypeText "¾Å°ËJoy ASPά»¤¹¤×÷Òâ¼û"
wApp.Selection.ParagraphFormat.Alignment = 1
rem ¾Ó ÖÐ
wApp.Selection.TypeParagraph
wApp.Selection.Font.Bold = false
&
Ïà¹ØÎĵµ£º
Ò»´óÔçÆðÀ´×°IIS¡£ÏÖÔÚÖÕÓÚ×°ºÃÁË¡£Ê®·Ö¸ÐлÒÔϵIJ©ÎÄ£¬ÌØ×ª¹ýÀ´·ÖÏí :)
תÖÁ£ºhttp://blog.sina.com.cn/s/blog_50070c4c0100bkq6.html
ÿÿװIIS£¬×Ü»áÅöµ½ÕâÑùÄÇÑùµÄÎÊÌ⣬´ÓĿǰ·´Ó¦Çé¿öÀ´¿´£¬IIS°²×°ºó¿Éä¯ÀÀHTML¾²Ì¬Îļþ£¬È´ÎÞ·¨ä¯ÀÀaspΪºó׺µÄ¶¯Ì¬Ò³Ãæ¡£
ͨ¹ý¼¸´Îµ÷ÊÔºó£¬ÕÒµ½ÒÔϼ¸ÖÖ·½·¨£ ......
½ñÌìΪÁËÒÔºóµÄ·½±ã£¬ÎÒдÁËһЩ³£ÓõÄÓû§¿Ø¼þ¡£ÔÚдlogin¿Ø¼þʱ£¬ÓÐÈý¸ö°´Å¥£¬·Ö±ðÊǵǽ¡¢ÖØÖá¢×¢²á¡£ÎÒÏëÖÐͼƬ×÷ΪËûÃǵı³¾°À´ÏÔʾËüÃÇ£¬µ«ÎÊÌâÊÇasp:Button²¢Ã»ÓÐÌṩbackground-imageµÄÊôÐÔ¡£ÓÚÊÇÎÒ¾ÍÔÚÍøÉÏËÑÁËһϣ¬ÓÐÈËÌá³öÓÃCssClassÊôÐÔ£¬·½°¸ÊÇÔÚcssÎļþ½øÐÐbackground-imageµÄ¶¨Ò壬ÈçµÇ½.loginButt ......
<%
'ÒÔϲ¿·ÖÊÇÑéÖ¤Ìá½»µÄpageÊÇ·ñΪºÏ·¨µÄ²ÎÊý
'Õⲿ·Ö×îºÃÅжÏÒ»ÏÂÌá½»µÄ²ÎÊýÊÇ·ñΪÊýÖµ×Ö·û
dim page
page=Trim(request("page"))
If page="" Then
page=1
Elseif CInt(page)<=0 then
page=1
else
page=CInt(page)
End If
'½øÐвéѯ£¬È¡³öÒªÏÔʾµÄ¼Ç¼
str=rs1("content")
'°Ñ³ö ......
aspÖеöÈ¡Õûº¯ÊýÊÇ£ºfix(),int(),round();
Int(number)¡¢Fix(number)º¯Êý·µ»ØÊý×ÖµÄÕûÊý²¿·Ö¡£number ²ÎÊý¿ÉÒÔÊÇÈÎÒâÓÐЧµÄÊýÖµ±í´ïʽ¡£Èç¹û number ²ÎÊý°üº¬ Null£¬Ôò·µ»Ø Null¡£
Àý£º
response.write int(2.14) '2
response.write fix(2.14) '2
response.write int(2.54) '2
response.write int(2.54) '2
&nbs ......