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
Ïà¹ØÎĵµ£º
Ò»¡¢ÕâÑùÅäÖõĺô¦£¿
²»Öª´ó¼ÒÓÐûÓÐÌý¹ýÅÔ×¢£¿ÎÒ¼òµ¥µÄ½âÊÍһϰɣºÓиöÈËÏëºÚµôAÕ¾µã£¬µ«ÕÒÀ´ÕÒÈ¥¶¼Ã»·¢ÏÖ¿ÉÀûÓõÄ©¶´£¬ÎÞÒâÖÐËû·¢ÏÖÓëAͬ·þÎñÆ÷ÉÏ»¹ÓиöBÕ¾µã£¬²¢ÇÒÔÚBÕ¾µãÉÏÕÒµ½ÁË¿ÉÀûÓõÄ©¶´£¬ÓÚÊÇËû½«Ä¾Âí´ÓBÕ¾ÖÐÉÏ´«ÖÁ·þÎñÆ÷£¬Èç¹û·þÎñÆ÷ȨÏÞÅäÖò»µ±£¬ÄÇôÏÖÔÚËû¾Í¿ÉÒÔºÚµô·þÎñÆ÷ÉϵÄËùÓÐÕ¾µãÁË£¡Èç¹ûÎÒÃÇΪà ......
<%
'ÒÔÏÂÊÇÊÔÓðæ´úÂ룬Êǹ̶¨µÄ´úÂ룬ֻÓÐÕýʽ°æ²Å¿É×Ô¶¯´Óºǫ́Êý¾Ý¿âÖжÁȡͼƬ¡£
piao1="images/1.jpg"
piao1url=""
piaos1="ͼ1"
piao2="images/2.jpg"
piao2url=""
piaos2="ͼ2"
piao3="images/ ......
<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......
¡¡¡¡Ñ§Ï°Ä¿µÄ£ºÑ§»áÓÃ±íµ¥ÔªËØÏò·þÎñÆ÷´«ËͱäÁ¿£¬È»ºóÏÔʾ±äÁ¿ÔÚ¿Í»§¶ËµÄä¯ÀÀÆ÷¡£
¡¡¡¡Ê×ÏÈ£¬ÈÃÎÒÃÇÀ´¿´Ò»ÏÂDREAMWEAVERµÄ±íµ¥ÔªËØëˢ¡£
¡¡¡¡ÏÂÃæÎÒÃÇÀ´Ò»¸öÒ»¸ö¿´±íµ¥ÔªËØ¡£1¡¢Îı¾Óò£¬Õâ¸öÊÇ×î»ù±¾µÄ£¬´«Ë͵ÄÊÇÎı¾ÐÅÏ¢£¬Ò»°ãÓû§Ãû£¬ÃÜÂ붼ҪÓÃÕâ¸ö´«ËÍ£¬²»¹ýÒªÊÇÃÜÂëµÄ»°ÒªÔÚÀàÐÍÀïÃæÑ¡ÔñÃÜÂ룬ÕâÑù¾Í»áÒÔ*´úÌæÏÔʾ³ ......
<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......