ASP 网页代码分析, ASP 网页代码分析 &lt.Layo
ASP 网页代码分析 &lt.LayoutID;=& & ClassID & &quot.ClassID.Recordset&quot?ClassID=&quot,conn.LayoutID where C.LinkUrl='Yes&)rsRoot.open sqlRADODB,1%&gt,&#39,arrClassID,C.C order by C.RootID;&SpecialID=&quot.IsElite=True and C;select C.LayoutFileName,1; & SpecialIDSet rsArticle= S%dim sqlRADODB.Recordset&quot,C,L.OrderID&quot.CreateObject(&)Set rsPic= SMaxPerPage=20strFileName=&Set rsRoot= SADODB,C.BrowsePurview&gt.ParentPath From ArticleClass C inner join Layout L on C.CreateObject(& & UserLevel & &quot.CreateObject(&quot.LayoutID=L; and C;%const ChannelID=2Const ShowRunTime=&quot,rsRoot. and C,L.ClassName.ParentID=&quot,C;可以获取什么信息;)%&Article_Class2.Recordset& & ClassID & &quot&lt,TitleStrsqlRoot=&quot 水萧云 ASP 网页代码分析
BrowsePurview&gt.IsElite=True and C.LinkUrl=&#39?ClassID一页20条; and C.ParentID=& & UserLevel & & and C; & ClassID & &quot.asp:C;=&quot:Article_Class2链接;&#39:MaxPerPage=20 查询条件ASP代码里哪个是提交表单数据的
ASP代码里哪个是提交表单数据的
&!--#include file="conn.asp"--&&%if session("admin")="" thenresponse.Write "&script language='javascript'&alert('网络超时或您还没有登陆！');window.location.href='login.asp';&/script&"response.Endelseif session("flag")=2 thenresponse.Write "&p align=center&&font color=red&您没有此项目管理权限！&/font&&/p&"response.Endend ifend if%&&script language="JavaScript"&&!--function MM_jumpMenu(targ,selObj,restore){ //v3.0& eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");& if (restore) selObj.selectedIndex=0;}//--&&/script&
&%dim selectm,selectkey,selectidselectkey=trim(request.form("selectkey"))selectm=trim(request.form("selectm"))action=trim(request("action"))if selectkey="" thenselectkey=FormatSQL(request.QueryString("selectkey"))end ifif selectm="" thenselectm=FormatSQL(request.QueryString("selectm"))end ifselectid=request.form("selectid")
select case actioncase "update"j = request.form("updateid").count&&& for i=1 to request.form("updateid").count&updateid=replace(request.form("updateid")(i),"'","")&strname=replace(request.form("strname")(i),"'","")&price1=replace(request.form("price1")(i),"'","")&price2=replace(request.form("price2")(i),"'","")&price3=replace(request.form("price3")(i),"'","")&price4=replace(request.form("price4")(i),"'","")&price5=replace(request.form("price5")(i),"'","")&size1=replace(request.form("size1")(i),"'","")&stock=replace(request.form("stock")(i),"'","")&stock2=replace(request.form("stock2")(i),"'","")'&orderby=replace(request.form("orderby")(i),"'","")&score=replace(request.form("score")(i),"'","")'&viewnum=replace(request.form("viewnum")(i),"'","")'&solded=replace(request.form("solded")(i),"'","")
&conn.execute("update& products set bookname='"&strname&"',grade='"&price1&"',size='"&size1&"',isbn='"&price2&"',shichangjia="&price3&",huiyuanjia="&price4&",vipjia="&price5&",kucun="&stock&",bookchuban='"&stock2&"',yeshu="&score&" where bookid="&updateid)&&& nextconn.closeset conn=nothingresponse.Redirect "chkpro.asp"response.End
end select
&table width="1427" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6699cc"&& &tr&& &&& &td width="138" height="25" align="center" background="../images/admin_bg_1.gif"&&b&&font color="#ffffff"&商品批量修改功能&/font&&/b&&&& &/td&& &/tr&& &tr& &&& &form name="chkform" method="post" action=""&&&&&& &td width="1198" bgcolor="#FFFFFF"&&br&&&&&&&& &%&&&&Const MaxPerPage=20&& &&&&dim totalPut&& && &&&&dim CurrentPage&& &&&&dim TotalPages&& &&&&dim j&& &&&&dim sql&&& &&&&if Not isempty(SafeRequest("page",1)) then&&&&& &&&&currentPage=Cint(SafeRequest("page",1))&& &&&&else&&&&& &&&&currentPage=1&& &&&&end if &&&set rs=server.CreateObject("adodb.recordset")&&&select case selectm&&&case ""&&&&&&&&&&& rs.open "select * from& [products]& order by bookid desc",conn,1,1
&&& end select&&&&& &&&&if rs.eof And rs.bof then&&&&&& &&&&Response.Write "&p align='center' class='contents'& 数据库中暂时无数据！&/p&"&& &&else&& &&rs.PageSize =20 '每页记录条数&&&iCount=rs.RecordCount '记录总数&&&iPageSize=rs.PageSize&&& &&maxpage=rs.PageCount &&& &&page=request("page")&&& if Not IsNumeric(page) or page="" then&&&&&&& page=1&&& else&&&&&&& page=cint(page)&&& end if&&& if page&1 then&&&&&&& page=1&&& elseif& page&maxpage then&&&&&&& page=maxpage&&& end if&&& rs.AbsolutePage=Page&if page=maxpage then&&x=iCount-(maxpage-1)*iPageSize&else&&x=iPageSize&end if&&%&&meta http-equiv="Content-Type" content="text/ charset=gb2312"&&link href="../images/css.css" rel="stylesheet" type="text/css"&&&&&&& &table width="1400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#A4B6D7"&&&&&&&&&& &tr bgcolor="#A4B6D7" height="25"& &&&&&&&&&&& &td width="6%" align="center"&ID&/td&&&&&&&&&&&& &td width="13%" align="center"&商品名称&/td&&&&&&&&&&&& &td width="5%" align="center"&商品编号&/td&&&&&&&&&&&& &td width="9%" align="center"&颜色&/td&&&&&&&&&&&& &td width="7%" align="center"&尺寸&/td&&&&&&&&&&&& &td width="8%" align="center"&商品规格&/td&&&&&&&&&&&& &td width="6%" align="center"&市场价&/td&&&&&&&&&&&& &td width="6%" align="center"&会员价&/td&&&&&&&&&&&& &td width="7%" align="center"&VIP价&/td&&&&&&&&&&&& &td width="6%" align="center"&库存&/td&&&&&&&&&&&& &td width="8%" align="center"&商品单位&/td&&&&&&&&&&&& &td width="9%" align="center"&积分&/td&&&&&&&&&&&& &td width="10%" align="center"&修改&/td&&&&&&&&&& &/tr&&&&&&&&&& &%&&& do while not rs.eof &&&& iii = iii +1&&& if iii mod& 2 = 0 then& %&&&&&&&&&& &tr bgcolor="#FFFFFF" align="center" height="28"& &&&&&&&&&&& &% else %&&&&&&&&&& &tr bgcolor="#EFEFEF" height="28"& &&&&&&&&&&& &% end if %&&&&&&&&&&&& &td align="center"&&a href=editproduct.asp?id=&%=rs("bookid")%&&&%=rs("bookid")%&&/a&&/td&&&&&&&&&&&& &td align="left"&&input type="text" name="strname" size="20" value="&% = rs("bookname") %&"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="price1" size="6" value="&%=rs("grade") %&"&&/td&&&&&&&&&&&& &td align="center"&&input name="color" type="text" id="color" value="&%=rs("color") %&" size="15" /&&/td&&&&&&&&&&&& &td align="center"&&input name="size1" type="text" id="size1" value="&%=rs("size") %&" size="18" /&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="price2" size="6" value="&%=rs("isbn") %&"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="price3" size="6" value="&%=FormatNum(rs("shichangjia"),2)%&"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="price4" size="6" value="&%=FormatNum(rs("huiyuanjia"),2)%&"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="price5" size="6" value="&%=FormatNum(rs("vipjia"),2)%&"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="stock" size="3" value="&%= rs("kucun") %&" ONKEYPRESS="event.returnValue=IsDigit();"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="stock2" size="3" value="&%= rs("bookchuban") %&" onKeyPress="event.returnValue=IsDigit();"&&/td&&&&&&&&&&&& &td align="center"&&input type="text" name="score" size="3" value="&%= rs("yeshu") %&" ONKEYPRESS="event.returnValue=IsDigit();"&&/td&&&&&&&&&&&& &td align="center"&&a href=editproduct.asp?id=&%=rs("bookid")%&&修改商品&/a&&&&&&&&&&&& &/td&&&&&&&&&&&& &input type="hidden" name="updateid" value="&%=rs("bookid")%&"&&&&&&&&&& &/tr&&&&&&&&&& &%i=i+1&&&if i&=MaxPerPage then Exit Do&&&rs.movenext&&& loop&&& rs.close&&& set rs=nothing%&&&&&&&&&& &tr align="center" bgcolor="#FFFFFF"& &&&&&&&&&&& &td height="30" colspan="16"& &&&&&&&&&&&&& &INPUT type="hidden" name="action" value=""& &&&&&&&&&&&&& &INPUT type="button" value="更新商品！" onclick="document.chkform.action.value='update'; document.chkform.submit();"&&&&&&&&&&&&&& 点更新商品后可以批量修改商品数据! && &/td&&&&&&&&&& &/tr&&&&&&&& &/table&&&%&&call PageControl(iCount,maxpage,page,"border=0 align=center","&p align=center&")&&end if&&rs.close&&set rs=nothingSub PageControl(iCount,pagecount,page,table_style,font_style)'生成上一页下一页链接&&& Dim query, a, x, temp&&& action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")&&& query = Split(Request.ServerVariables("QUERY_STRING"), "&")&&& For Each x In query&&&&&&& a = Split(x, "=")&&&&&&& If StrComp(a(0), "page", vbTextCompare) && 0 Then&&&&&&&&&&& temp = temp & a(0) & "=" & a(1) & "&"&&&&&&& End If&&& Next&&& Response.Write("&table width=100% border=0 cellpadding=0 cellspacing=0 &" & vbCrLf )&&&&&&& && Response.Write("&TD align=center height=40&" & vbCrLf )&&& Response.Write(font_style & vbCrLf )&&& &&& if page&=1 then&&&&&&& Response.Write ("首 页 " & vbCrLf)&&&&&&& &&&&&&& Response.Write ("上一页 " & vbCrLf)&&& else&&&&&&& &&&&&&& Response.Write("&A HREF=" & action & "?" & temp & "Page=1&首 页&/A& " & vbCrLf)&&&&&&& Response.Write("&A HREF=" & action & "?" & temp & "Page=" & (Page-1) & "&上一页&/A& " & vbCrLf)&&& end if&&& if page&=pagecount then&&&&&&& Response.Write ("下一页 " & vbCrLf)&&&&&&& Response.Write ("尾 页 " & vbCrLf)&&&&&&&&&&& &&& else&&&&&&& Response.Write("&A HREF=" & action & "?" & temp & "Page=" & (Page+1) & "&下一页&/A& " & vbCrLf)&&&&&&& Response.Write("&A HREF=" & action & "?" & temp & "Page=" & pagecount & "&尾 页&/A& " & vbCrLf)&&&&&&&&&&& &&& end if&&& Response.Write(" 页次：" & page & "/" & pageCount & "页" && vbCrLf)&&& Response.Write(" 共有" & iCount & "种商品" && vbCrLf)&&& &&& Response.Write("&/TD&" & vbCrLf )&&&&&&&&&&&&&&& &&& &&& Response.Write("&/table&" & vbCrLf )&&&&&&& End Sub%&&/td&&& &/table&&br&&table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#6699cc"&& &tr& &&& & &/tr&&&/table&
&!--#include file="foot.asp"--&&script language=javascript&
function mm(){&& var a = document.getElementsByTagName("input");&& if(a[0].checked==true){&& for (var i=0; i&a. i++)&&&&& if (a[i].type == "checkbox") a[i].checked =&& }&& else&& {&& for (var i=0; i&a. i++)&&&&& if (a[i].type == "checkbox") a[i].checked =&& }}
function IsDigit(){& return ((event.keyCode &= 48) && (event.keyCode &= 57));}&/script&&%function FormatNum(num,n)if num&1 thennum="0"&cstr(FormatNumber(num,n))elsenum=cstr(FormatNumber(num,n))end ifFormatNum=replace(num,",","")end function%&
不区分大小写匿名
&form name="chkform" method="post" action=""&上面这行是提交转向数据处理页面的．后面的action="填上你的处理页面文件名就可以．比如&form name="chkform" method="post" action="add.asp"&.
晚上又添加一个亲的表单，提交后，数据库没有记录成功~这是为什么，以下的代码是什么意思
&%dim selectm,selectkey,selectidselectkey=trim(request.form("selectkey"))selectm=trim(request.form("selectm"))action=trim(request("action"))if selectkey="" thenselectkey=FormatSQL(request.QueryString("selectkey"))end ifif selectm="" thenselectm=FormatSQL(request.QueryString("selectm"))end ifselectid=request.form("selectid")
select case actioncase "update"j = request.form("updateid").count&&& for i=1 to request.form("updateid").count&updateid=replace(request.form("updateid")(i),"'","")&strname=replace(request.form("strname")(i),"'","")&price1=replace(request.form("price1")(i),"'","")&price2=replace(request.form("price2")(i),"'","")&price3=replace(request.form("price3")(i),"'","")&price4=replace(request.form("price4")(i),"'","")&price5=replace(request.form("price5")(i),"'","")&size1=replace(request.form("size1")(i),"'","")&stock=replace(request.form("stock")(i),"'","")&stock2=replace(request.form("stock2")(i),"'","")'&orderby=replace(request.form("orderby")(i),"'","")&score=replace(request.form("score")(i),"'","")'&viewnum=replace(request.form("viewnum")(i),"'","")'&solded=replace(request.form("solded")(i),"'","")
&conn.execute("update& products set bookname='"&strname&"',grade='"&price1&"',size='"&size1&"',isbn='"&price2&"',shichangjia="&price3&",huiyuanjia="&price4&",vipjia="&price5&",kucun="&stock&",bookchuban='"&stock2&"',yeshu="&score&" where bookid="&updateid)&&& nextconn.closeset conn=nothingresponse.Redirect "chkpro.asp"response.End
end select
这代码码是根据你前一个表单的数据在当前这个页面代码进行接收．以上代码主要是对数据进行修改．也就是替换．如果你不明白这些代码的意思．建意你多看看ＡＳＰ的基础．比如常用对像等等．
相关知识等待您来回答
网页制作领域专家
& &SOGOU - 京ICP证050897号新野视窗（最漂亮的信息港） 展示 list.ASP源代码
- 下载整个 - 类型：.ASP文件
&!--#include file=&head.inc&--&
const MaxPerPage=10
const Max=2
const MaxTj=10
dim totalPut &
dim CurrentPage
dim TotalPages
dim keyword
keyword=request(&txtitle&)
abc=request(&type&)
dim datetime
if not isEmpty(request(&datetime&)) then
& &datetime=cint(request(&datetime&)) &
& &datetime=&&
if not isempty(request(&page&)) then
& &currentPage=cint(request(&page&))
& &currentPage=1
if not isEmpty(request(&sortid&)) then
& &sortid=request(&sortid&)
& &sortid=&&
if not isEmpty(request(&typeid&)) then
& &typeid=request(&typeid&)
& &typeid=&&
set rssort=server.createobject(&adodb.recordset&)
sortsql=&select * from class_1 where sortid=&&cstr(sortid)&&&
rssort.open sortsql,conn,1,1
sortname=rssort(&sort&)
set rstype=server.createobject(&adodb.recordset&)
typesql=&select * from class_2 where sortid=&&cstr(sortid)&&&
rstype.open typesql,conn,1,1
typename1=rstype(&typename&)
rstype.close
Set rszs= Server.CreateObject(&ADODB.Recordset&)
zssql=&select * from spzs&
zssql=zssql && where flag=1&
if sortid&&&& then
& &zssql=zssql && and sortid=&&sortid&&&
if typeid&&&& then
& &zssql=zssql && and typeid=&&typeid&&&
zssql=zssql && order by id desc&
rszs.open zssql,conn,1,1
set rstj=server.createobject(&adodb.recordset&)
tjsql=&select * from qyml&
tjsql=tjsql && where tjbz like '%02%'&
if sortid&&&& then
& &tjsql=tjsql && and sortid=&&sortid&&&
if typeid&&&& then
& &tjsql=tjsql && and typeid=&&typeid&&&
tjsql=tjsql && order by id desc&
rstj.open tjsql,conn,1,1
&TABLE border=&0& width=&750& height=&30&&
&tr&&td&您的位置：&a href=&../default.asp&&首页&/a&&& &a href=&syjh.asp&&商业机会&/a& && &a href=&default.asp?sortid=&%=sortid%&&&&%=sortname%&&/a& && &%=typename1%&&/td&&/tr&
Set rs= Server.CreateObject(&ADODB.Recordset&)
sql=&select * from info&
sql=sql && where (showname like '%&&request(&SearchText&)&&%'&
sql=sql && Or content like '%&&request(&SearchText&)&&%')&
if sortid&&&& then
& &sql=sql && and sortid=&&sortid&&&
if typeid&&&& then
& &sql=sql && and typeid=&&typeid&&&
if datetime&&&& then
& &sql=sql && and dateandtime&=date()-&&cint(request(&datetime&))&&&
if abc&&&& then
& &sql=sql && and type='&&abc&&'&
sql=sql && and flag=1 order by dateandtime desc&
rs.open sql,conn,1,1
& if rs.eof and rs.bof then
& & & &response.write &&p align='center'&&font size=2&&br&&br&&br&对不起，没有您要查询的信息，&a href=publish_info.asp&&font style='color: #f60'&点击这里发布信息!&/font&&/a&&br&&br&&br&&br&&br&&br&&/p&&
& & & &totalPut=rs.recordcount
& & & &if currentpage&1 then
& & & & & currentpage=1
& & & &end if
& & & &if (currentpage-1)*MaxPerPage&totalput then
& & & & & if (totalPut mod MaxPerPage)=0 then
& & & & & & &currentpage= totalPut \ MaxPerPage
& & & & & else
& & & & & & &currentpage= totalPut \ MaxPerPage + 1
& & & & & end if
& & & end if
& & if currentPage=1 then
& & & &showpage totalput,MaxPerPage,&search.asp&
& & & &showContent
& & & &content
& & & & & if (currentPage-1)*MaxPerPage&totalPut then
& & & & & & rs.move &(currentPage-1)*MaxPerPage
& & & & & & dim bookmark
& & & & & & bookmark=rs.bookmark
& & & & & & showpage totalput,MaxPerPage,&search.asp&
& & & & & & showContent
& & & & & & content
& & & & & else
& & & & & & currentPage=1
& & & & & & showpage totalput,MaxPerPage,&search.asp&
& & & & & & showContent & &
& & & & & & content
& & & & & end if
& & end if
& &rs.close
& &set rs=nothing
& &conn.close
& &set conn=nothing
& &sub showContent
& do while not rs.eof
&table border=&0& width=&550& cellspacing=&0& cellpadding=&0&&
& &tr height=&20&&&td&&&/td&&/tr&
& &tr height=&30&&
& & &% if rs(&type&)=&买& &then%&
& & &td bgColor=#ffffff align=&left&&&img border=&0& src=&../pict/a-2.gif& width=&13& height=&13&&&a href='business_info.asp?info_id=&%=rs(&info_id&)%&'&&b&&%=rs(&showname&)%&&/b&&/a&&&&%=rs(&dateandtime&)%&&font color=&#fc9603&&&& 【&%=rs(&type&)%&】&/font&&/td&
& & &%else%&
& & &td bgColor=#ffffff align=&left&&&img border=&0& src=&../pict/a-2.gif& width=&13& height=&13&&&a href='business_info.asp?info_id=&%=rs(&info_id&)%&'&&b&&%=rs(&showname&)%&&/b&&/a&&&&%=rs(&dateandtime&)%&&font color=&#079807&&&& 【&%=rs(&type&)%&】&/font&&/td&
& & &%end if%&
& &tr height=&30&&
& & &td bgColor=#ffffff align=&left&&&%=rs(&company&)%&&b&& 【&%=rs(&country&)%&·&%=rs(&city&)%&】&/b&&/td&
& &tr height=&30&&
& & &td colspan=&3& bgColor=#ffffff&&%=mid(rs(&content&),1,150)%&&a href='javascript:show_sader(&business_info.asp?info_id=&%=rs(&info_id&)%&&)'&&i&[详细信息...]&/i&&/td&
& &tr height=&20&&&td&&&/td&&/tr&
&%rs.movenext %&
& &table border=&0& width=&550& cellspacing=&0& cellpadding=&0&&
& & &tr height=&30&&
& & & &% if rs(&type&)=&买& &then%&
& & & &td &bgColor=#F6F6F6 align=&left&&&img border=&0& src=&../pict/a-2.gif& width=&13& height=&13&&&a href='business_info.asp?info_id=&%=rs(&info_id&)%&'&&b&&%=rs(&showname&)%&&/b&&/a&&&&%=rs(&dateandtime&)%&&font color=&#fc9603&&&& 【&%=rs(&type&)%&】&/font&&/td&
& & & &%else%&
& & & &td &bgColor=#F6F6F6 align=&left&&&img border=&0& src=&../pict/a-2.gif& width=&13& height=&13&&&a href='business_info.asp?info_id=&%=rs(&info_id&)%&'&&b&&%=rs(&showname&)%&&/b&&/a&&&&%=rs(&dateandtime&)%&&font color=&#079807&&&& 【&%=rs(&type&)%&】&/font&&/td&
& & & &%end if%&
& & &tr height=&30&&
& & & &&td &bgColor=#F6F6F6 align=&left&&&%=rs(&company&)%&&b&& 【&%=rs(&country&)%&·&%=rs(&city&)%&】&/b&&/td&
& & &tr height=&30&&
& & & &&td colspan=&3& bgColor=#F6F6F6&&%=mid(rs(&content&),1,150)%&&a href='business_info.asp?info_id=&%=rs(&info_id&)%&'&&i&[详细信息...]&/i&&/td&
& & &tr height=&20&&&td bgcolor=&#f6f6f6&&&&/td&&/tr&
& & &% i=i+2
& & & & & if i&=MaxPerPage then exit do
& & & & & rs.movenext
& & & & & loop
function showpage(totalnumber,maxperpage,filename)
& if totalnumber mod maxperpage=0 then
& & &n= totalnumber \ maxperpage
& & &n= totalnumber \ maxperpage+1
& response.write &&form method=Post &action=&&filename&&?sortid=&&sortid&&&txtitle=&&keyword&&&&
&Table border=&0& width=&750& cellspacing=&0& cellpadding=&0&&
& &tr&&td&
& & &&FORM name=&lbcx& method=&POST& action=&search.asp&&
& & &&input type=&hidden& name=&sortid& value=&%=sortid%&&
& & &&input type=&hidden& name=&typeid& value=&%=typeid%&&
& & &&Table width=450 border=0&
& & & &&tr&&td&&font color=&#FF6600&&&b&显示:&b&
&a href=&search.asp?sortid=&%=sortid%&&&全部&/a& →
&a href=&search.asp?type=买&sortid=&%=sortid%&&typeid=&%=typeid%&&txtitle=&%=keyword%&&datetime=&%=datetime%&&)&买&/a& →
&a href=&search.asp?type=卖&sortid=&%=sortid%&&typeid=&%=typeid%&&txtitle=&%=txtitle%&&datetime=&%=datetime%&&&卖&/a& →
&a href=&search.asp?type=代理&sortid=&%=sortid%&&typeid=&%=typeid%&&txtitle=&%=txtitle%&&datetime=&%=datetime%&&&代理&/a& →
&a href=&search.asp?type=合作&sortid=&%=sortid%&&typeid=&%=typeid%&&txtitle=&%=txtitle%&&datetime=&%=datetime%&&&合作&/a&&/font&
& & & &&/td&&/tr&
& & &&/table&
& & &&/FORM&
& if CurrentPage&2 then
& response.write &&left&&
& response.write &&table border=0 width=550 &bordercolorlight=#000000 cellspacing=0 cellpadding=0 bordercolordark=#FFFFFF&&
& response.write &&tr height=30 &bgColor=#F6F6F6&&
& response.write &&td align=left&&
& response.write &&b&共&font color=red&&&n&&&/font&页&&/font&第&font color=red&&&CurrentPage&&&/font&页&
& response.write &&共查询到&font color=red&&&totalnumber&&&/font&条信息&/b&&
& response.write &&/td&&
& response.write &&td VALIGN=middle align=right &&
& response.write &【最前页】【上一页】&
& response.write &&left&&
& response.write &&table border=0 width=550 &cellspacing=0 cellpadding=0&&
& response.write &&tr height=30 &bgColor=#F6F6F6&&
& response.write &&td align=left&&
& response.write &&b&共&font color=red&&&n&&&/font&页&第&font color=red&&&CurrentPage&&&/font&页&
& response.write &&共查询到&font color=red&&&totalnumber&&&/font&条信息&/b&&
& response.write &&/td&&
& response.write &&td VALIGN=middle align=right &&
& response.write &【&a href=&&filename&&?page=1&sortid=&&sortid&&&typeid=&&typeid&&&txtitle=&&keyword&&&datetime=&&datetime&&&type=&&abc&&&最前页&/a&】&
& & response.write &【&a href=&&filename&&?page=&&CurrentPage-1&&&sortid=&&sortid&&&typeid=&&typeid&&&txtitle=&&keyword&&&datetime=&&datetime&&&type=&&abc&&&上一页&/a&】&
& if n-currentpage&1 then
& & response.write &【下一页】【最后页】&
& & response.write &【&a href=&&filename&&?page=&&(CurrentPage+1)&&&sortid=&&sortid&&&typeid=&&typeid&&&txtitle=&&keyword&&&datetime=&&datetime&&&type=&&abc&&&&
& & response.write &下一页&/a&】【&a href=&&filename&&?page=&&n&&&sortid=&&sortid&&&typeid=&&typeid&&&txtitle=&&keyword&&&datetime=&&datetime&&&type=&&abc&&&最后页&/a&】&
& response.write &&/form&& & & &
& response.write &&/td&&
& response.write &&/tr&&
& response.write &&/table&&
& end function
& sub content
&FORM name=&searchtitle& method=&POST& action=&search.asp&&
&Table width=550 border=0 &cellspacing=&0& cellpadding=&0&&
& &&TR&&TD bgcolor=&#f6f6f6&&&&/td&&/tr&
& & & &TD bgcolor=&#f6f6f6& align=&center&&
& & & & &input type=&hidden& name=&sortid& value=&%=sortid%&&
& & & & &input type=&hidden& name=&typeid& value=&%=typeid%&&
& & & & 关键字：&Input class=f11 type=&text& name=&txtitle& size=&30&&&&
& & & & &SELECT class=f11 size=&1& name=&datetime&& & & & & &
& & & & &OPTION &VALUE=&& selected&显示所有时段&/OPTION&
& & & & &OPTION &VALUE=&0&&显示今日最新&/OPTION&
& & & & &OPTION &VALUE=&2&&显示最近2天&/OPTION&
& & & & &OPTION &VALUE=&7&&显示最近7天&/OPTION&
& & & & &OPTION &VALUE=&15&&显示最近15天&/OPTION&
& & & & &OPTION &VALUE=&30&&显示最近1个月&/OPTION&
& & & & &OPTION &VALUE=&90&&显示最近3个月&/OPTION&
& & & & &OPTION &VALUE=&180&&显示最近半年&/OPTION&
& & & & &OPTION &VALUE=&365&&显示最近1年&/OPTION&
& & & & &/SELECT&&
& & & & &SELECT class=f11 size=&1& name=&Type&& & & & & &
& & & & &OPTION &VALUE=&& selected&请选择买卖方向&/OPTION&
& & & & &OPTION &VALUE=&买&&买&/OPTION&
& & & & &OPTION &VALUE=&卖&&卖&/OPTION&
& & & & &OPTION &VALUE=&代理&&代理&/OPTION&
& & & & &OPTION &VALUE=&合作&&合作&/OPTION&
& & & & &/select&&input type=&submit& value=&查询& name=&title&&&/p&
&/td&&/tr&&/table&
&td width=&180& valign=&top&&
&table align=&rigth& cellspacing=&1& cellpadding=&1& width=100% border=&0& bgcolor=&FFCCAA&&
& &&tr&&td bgcolor=&FFCCAA& height=&25&&&b&&推荐产品&/b&&/td&&/tr&
& &&tr&&td bgcolor=&f5f5f5& valign=top&
& & & &table cellspacing=&0& cellpadding=&2& border=&0&&
& & & &%do while not rszs.eof%& & & &
& & & &tr valign=&top&&
& & & & & &td align=center&&a href=cpzs.asp?id=&%=rszs(&ID&)%&&&img border=&0& src=&../uploadpic/&%=rszs(&picture&)%&& align=left height=75 &width=75&&/a&&a href=cpzs.asp?id=&%=rszs(&ID&)%&&&b&&font color=&ff6600&&&%=rszs(&cpmc&)%&&/font&&/b&&/a&&BR&&%=rszs(&jysm&)%&&/td&
& & & &/tr&
& & & &% x=x+1
& & & & & if x&=Max then exit do &
& & & & & rszs.movenext
& & & & & loop
& & & & & rszs.close
& & & & & set rszs=nothing
& & &%& & & & &
& & & &&tr&
& & & & & &td align=&right& colspan=2&&a href=&../spzs/spzs.asp&&更多产品...&/a&&/td&
& & & &/tr&
& & & &/table&
& & & &/td&
& & & &/tr&
&table cellspacing=&1& cellpadding=&1& width=100% border=&0& bgcolor=&#333399&&
& & &&td&&b&&big&&&/big&&font color=ffffff class=f11&推荐公司&/font&&/b&&/td&
& & &&td bgcolor=ffffcc&
& & & &&table cellspacing=&0& cellpadding=&2& border=&0& width=&100%&&
& & & & &dim number
& & & & &do while not rstj.eof &
& & & &%& & &
& & & & &tr&
& & & & & & & &&td valign=&top&&&font color=&#FF8019&&*&/font&&/td&
& & & & & & & & &%if rstj(&web&)=&& or rstj(&web&)=&http://& then%&
& & & & & &td&&a href=../qybl/index.asp?id=&%=rstj(&id&)%& target=&_blank&&&%=rstj(&qymc&)%&&/td&
& & & & & & & & &%else%&
& & & & & &td&&a href=&%=rstj(&web&)%& target=&_blank&&&%=rstj(&qymc&)%&&/td&
& & & & & & & & &%end if%&
& & & & &/tr& & &
& & & & number=number+1
& & & & if number&=MaxTj then exit do &
& & & & rstj.movenext
& & & & loop
& & & & rstj.close
& & & & set rstj=nothing
& & & & %&
& & & & &tr&
& & & & & &&td colspan=2 height=20&&/td&
& & & & &/tr&
& &&/table&
&/td&&/tr&&/table&
&%end sub%&
&!--#include file=&../end.inc&--&
- 下载整个
相关源码/软件：
- 在信阳热线2.6的基础上增加电视、祈愿、笑话、bt电影音乐等插件。&&&... -
- 调用了首页《最新发表主题》《人气主题排序》《精华主题排序》 许愿瓶帐号yaya 密码yaya... -
- 重写了以前自己写的论坛目前程序是运行在个人电脑上(网通).估计电信访问较慢&请谅解... -
- 最新小说小偷，用了近一年了，现在公开非网上下载的k,k直接放你网站就可以使用了 -
- 程序使用ASP+ACCESS结构设计开发,供网友学习交流使用.程序特色以功能精简,体积小巧,... -
- 本程序基于乔客4.0进行美化修改，已经打上官方发布的所有补丁，包括日前更新所有补丁... -
- 基本上完全仿4399小游戏程序.后台管理:http://你的域名/admin/log... -
- 1.全站重新美化,采用DIV+CSS.2.本程序内核取自新云内核,已经升级3.0版.... -
- 本程序是以joekoe cms 1.2官方版为核心的百姓生活网版本，包括新闻、徐州、女性、母婴、生活... -
- 后台路径：manage&用户名和密码都是admin&主要特点：自由定制所有页面，... -
- 本程序由创新下载系统3.0美化而来,全站无错,广告后台自主管理方便灵活,结合论坛&投票系统... -
- 含盖的功能有：视窗首页 | 新闻纵横 | 电子邮局 | 娱民时代 | 依人风采 | 时尚生活... -
- -----------修正部分-------------1：增加了PPsTREAM&nbsp... -
- 浙西南农产品信息网,一个农业系统 -
- 强大的业务功能模块，包括手机B2C移动购物，智能软件下载功能模块，高级论坛等全球独创的3G版... -
- 对于绝大多数学校而言，要建成功能强大的维护方便的校园网站，恐怕不是一件容易的事，一方面，信息技术水平... -
- 九暮学生座位系统是作者希望能给老婆大人提供方便，也愿所有的老师再上课不再“喂喂喂”。。。压缩包内包含... -
- 论坛内核采用94kkBBS v2.1.0，全新美化，速度和功能上进一步提高！新增风格： -
- 1.强大的DIY功能，这是现在网络上其它程序没法比的地方，可以自己定义出很多效果，这就不像其它的程序... -
- 逐浪CMS致力于为广大站长提供最优秀的开放、免费、强大的网站内核管理服务，站点基于Microsoft... -