¼òµ¥µÄasp·Ö´ÊËã·¨£¨ÕýÏò×î´óÆ¥Å䣩
×î½üдվÄÚËÑË÷£¬ËùÒÔÑо¿ÁËÒ»ÏÂËã·¨£¬¸ÃËã·¨µÄÔÀíÈçͼÏÔʾ¡£
ÒÔÏÂÊÇÒ»¸öÓÃaspдµÄ¼òµ¥µÄ·Ö´Ê³ÌÐòÖ÷ÒªµÄ´úÂ룬´Ê¿âÎÒÒѾÓÃaccess½¨Á¢ºÃÁË¡£
Èç¹ûÒª×¢ÖØÐ§ÂÊ£¬MarLenµÄѡȡºÜÊÇÖØÒª£¬·ñÔòЧÂÊ»áÊ®·ÖµÍÏ£¬ÕâÀïMarLenÎÒѡȡµÄÊÇ5¡£
dim faword : faword = ""
do while (len(fword) > 0)
tword = left(fword,5)
'response.write "tword--->" & tword & "<br />"
tlen = len(tword)
do while (tlen > 0)
fw = left(tword,tlen)
'response.write "fw--->" & fw & "<br />"
sql = "select fword from dict where fword='" & fw & "'"
set rsfff = connf.execute(sql)
if not rsfff.eof or tlen=1 then
faword = faword & fw & ","
'response.write fw & "<br />"
exit do
end if
tlen = tlen - 1
loop
'response.write "tlen--->" & tlen & "<br />"
fword = mid(fword,tlen+1)
'response.write "fword--->" & fword & "<br />"
loop
connf.close
dim querywords : querywords = split(faword,",")
querywordsÊDZ£´æ¹Ø¼ü´ÊµÄÊý×é¡£
·Ö´Ê¾Íµ½ÕâÀïÁË£¬¶ÔÓÚÈçºÎÀûÓ÷ִʵĽá¹ûÔÚÊý¾Ý¿âÖвéÕÒ½á¹ûÒ²ÊÇÖµµÃÑо¿µÄ¡£
ÎÒÕâÀïÓÃÁËÇåһɫµÄ“like”£¬“or” sqlÓï¾ä£¬Ð§¹û²»ÊǺÜÀíÏë¡£
Ï£Íû´ó¼ÒÄܹ»ÁôÑÔÌÖÂÛ¡£
Ïà¹ØÎĵµ£º
Ò»¡¢ÕâÑùÅäÖõĺô¦£¿
²»Öª´ó¼ÒÓÐûÓÐÌý¹ýÅÔ×¢£¿ÎÒ¼òµ¥µÄ½âÊÍһϰɣºÓиöÈËÏëºÚµôAÕ¾µã£¬µ«ÕÒÀ´ÕÒÈ¥¶¼Ã»·¢ÏÖ¿ÉÀûÓõÄ©¶´£¬ÎÞÒâÖÐËû·¢ÏÖÓëAͬ·þÎñÆ÷ÉÏ»¹ÓиöBÕ¾µã£¬²¢ÇÒÔÚBÕ¾µãÉÏÕÒµ½ÁË¿ÉÀûÓõÄ©¶´£¬ÓÚÊÇËû½«Ä¾Âí´ÓBÕ¾ÖÐÉÏ´«ÖÁ·þÎñÆ÷£¬Èç¹û·þÎñÆ÷ȨÏÞÅäÖò»µ±£¬ÄÇôÏÖÔÚËû¾Í¿ÉÒÔºÚµô·þÎñÆ÷ÉϵÄËùÓÐÕ¾µãÁË£¡Èç¹ûÎÒÃÇΪà ......
Ŀǰ£¬×î³£ÓõÄÈýÖÖ¶¯Ì¬ÍøÒ³ÓïÑÔÓÐASP(Active Server Pages),JSP(Java Server Pages),
PHP (Hypertext Preprocessor)¡£
¼ò ½é
¡¡¡¡ASPÈ«ÃûActive Server & ......
<%
'ÒÔÏÂÊÇÊÔÓðæ´úÂ룬Êǹ̶¨µÄ´úÂ룬ֻÓÐÕýʽ°æ²Å¿É×Ô¶¯´Óºǫ́Êý¾Ý¿âÖжÁȡͼƬ¡£
piao1="images/1.jpg"
piao1url=""
piaos1="ͼ1"
piao2="images/2.jpg"
piao2url=""
piaos2="ͼ2"
piao3="images/ ......
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  ......