aspͼƬ¹ö¶¯
<%
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='overflow:hidden;height:200px;width:700px;'><!--¹ö¶¯ÇøµÄ¸ß¶ÈºÍ¿í¶È-->
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
<td id='demo1' valign='top'>
<table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
<tr valign='top'>
<%
while not rs_Product.EOF
fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))
%>
<td align='center'>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TR>
<TD align="center"><div style="width:240px;">
<a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
<%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
<img src="<%if rs_Product("DefaultPicUrl")="" then%>Img/nopic.gif<%else%><%=rs_Product("DefaultPicUrl")%><%end if%>" alt="<%=rs_Product("title")%>" width="220" height="174" border="0">
<%else
if fileext="swf" then%>
<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='220' height='174'>
<param name=movie value='<%=rs_Product("DefaultPicUrl")%>'>
&n
Ïà¹ØÎĵµ£º
<%
set conn= server.createobject("ADODB.connection")
conn.open "driver={sybase driver 10};"
"srvr=SYBASE;"
"UID=sa;"
"pwd=sybase;"
sql="select no from tab_st ......
֮ǰд¹ýÒ»¸ö²»ÓÃÑéÖ¤ÂëµÄ·À×¢²á»ú·½·¨£¬Ê¹ÓÃÁ˽«½ü2Äêºó£¬³¹µ×ʧЧ¡£
½ñÌìżȻײ¼ûÒ»¸ö·ÀÖ¹¶ñÒâ×¢²áµÄ·½·¨£¬ÕýÔÚ˼¿¼ing¡£ÏÈ°Ñ·½·¨ÁÐÏ£º
»ñÈ¡¿Í»§¶ËÌá½»µÄÐÅÏ¢£»
½«ÐÅÏ¢´æÈë Session£»
Éú³ÉÒ»¸öËæ»úÊý£¨³ÆΪ ticket£©£»
½«Ëæ»úÊýÒ²´æÈë Session£»
Óà JavaScript µÄÐÎʽ½«Ëæ»úÊýÒÔÁ´½ÓµÄÐÎʽÊä³ö£¬²¢Ìáʾ¿Í»§µã»÷ÉÏÒ ......
asp classÀàÓ÷¨
asp class
ÑϸñµØ˵£¬ASP ²¢²»ÊÇÒ»Ãűà³ÌÓïÑÔ£¬ËùÒÔ²»´æÔÚÀàÕâÒ»¸ÅÄÎÒÃÇÕâÀï˵ ASP ÀàÊÇÖ¸ ASP µÄ±à³ÌÓïÑÔ VBScript ÔÚ ASP ÀïÓ¦ÓÃʱµÄÀà¡£
ASP Àà±È½Ï¼òµ¥£¬Ëü²»¾ßÓÐÕæÕýÒâÒåÀàµÄ¼Ì³Ð¡¢ÖØÔصÈÌØÐÔ£¬¾¡¹ÜÈç´Ë£¬ËüÈÔÈ»ÊǷdz£ÓÐÓõģ¬Ëü½µµÍÁËÎÒÃDZà³ÌµÄ¸´ÔӶȣ¬Ê¹ÎÒÃǵijÌÐòÄ£¿é¸ü¼ÓºÏÀí¡£
A ......
·¢Ò»¸ö±ê×¼µÄÊý¾Ý¿âÁ¬½Ó´úÂ롣ϣÍû¶Ô´ó¼ÒÓаïÖú¡£
<%
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 ......
<%
'ÒÔÏÂÊÇÊÔÓðæ´úÂ룬Êǹ̶¨µÄ´úÂ룬ֻÓÐÕýʽ°æ²Å¿É×Ô¶¯´Óºǫ́Êý¾Ý¿âÖжÁȡͼƬ¡£
piao1="images/1.jpg"
piao1url=""
piaos1="ͼ1"
piao2="images/2.jpg"
piao2url=""
piaos2="ͼ2"
piao3="images/ ......