asp¶ÁÈ¡word ÎĵµÄÚÈÝת»»Îª¶þ½øÖÆÊý¾ÝÁ÷
Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite ObjFileStream.Read
Ïà¹ØÎĵµ£º
Ŀǰ£¬×î³£ÓõÄÈýÖÖ¶¯Ì¬ÍøÒ³ÓïÑÔÓÐASP(Active Server Pages),JSP(Java Server Pages),
PHP (Hypertext Preprocessor)¡£
¼ò ½é
¡¡¡¡ASPÈ«ÃûActive Server & ......
·¢Ò»¸ö±ê×¼µÄÊý¾Ý¿âÁ¬½Ó´úÂ롣ϣÍû¶Ô´ó¼ÒÓаïÖú¡£
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'¸ü¸ÄÊý¾Ý¿âÃû×Ö
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data&n ......
<%
for i=1 to rs.recordCount '±äÁ¿i´Ó1Ñ»·µ½Êý¾Ý¿âÖеÄÈ«²¿¼Ç¼Êý
if (i mod 1 =1) then 'ÿ¸ötr¼´Ã¿ÐÐÏÔʾ1¸ö¼Ç¼,¿É¸ù¾ÝÐèÒª×ÔÐÐÐÞ¸Ä, ½«×ó±ßµÄ1ÐÞ¸ÄΪ2¼´ÏÔʾÁ½ÐС£
response.write "<tr align='center'>"
end if
%>
´Ë´¦ÎªÒªÑ»·µÄÄÚÈÝ
<%if (i mod 1 = 0) then ......
Ìí¼Ó¡¢É¾³ý¡¢ÐÞ¸ÄʹÓÃ
db.Execute(Sql)ÃüÁîÖ´ÐвÙ×÷
╔----------------╗
¡î Êý¾Ý¼Ç¼ɸѡ ¡î
╚----------------╝
×¢Ò⣺µ¥Ë«ÒýºÅµÄÓ÷¨¿ÉÄÜÓÐÎó(ûÓвâʽ)
Sql = "Select
Distinct
×Ö¶ÎÃû from Êý¾Ý±í"
Distinctº¯Êý£¬²éѯÊý¾Ý¿â´æ±íÄÚ²»Öظ´µÄ¼Ç¼
......
+++ ASP.NET»º´æÖеÄÊý¾ÝÊDz»Îȶ¨µÄ£¬²»»á±»ÓÀ¾ÃµØ´æ´¢£¬¿ÉÄÜ»áÓÉÓÚÒÔÏÂÔÒòÖ®Ò»¶ø´Ó»º´æÖб»×Ô¶¯ÒƳý£º
1) »º´æÂúÁË
2) »º´æÏîÒѾ¹ýÆÚ
3) »º´æÒÀÀµµÄÏî¸Ä±äÁË
+++ ³ýÁË¿ÉÒÔ×Ô¶¯ÒƳý»º´æÏîÍ⣬Äã¿ÉÒÔÏÔÊ¾ÒÆ³ý»º´æÏî¡£ÁíÍ⣬µ±ÄãÓÃInsert·½·¨ºÍAdd·½·¨Ïò»º´æÖÐÌí¼ÓµÄ»º´æÏîÒѾ´æÔÚʱ£¬ÄÇô£¬ÔÀ´µÄ»º´æÏ±»×Ô¶¯É¾³ý¡ ......