登陆
浏览模式: 标准 | 列表 分类: ASP

if语法完整和不完整结构

哥哥 17:57:30
if sortid = 1 Then Response.write "化妆品类"
这是一个完整的
哥哥 17:57:41
语法结构已经完了
哥哥 17:58:02
当然就不能再继续写else或者elseif了
谢谢大鸟哥给出的解释

» 阅读全文

Tags: if, 语法, 结构

循环一行多少个

asp/Visual Basic代码
  1. <%   
  2. set rs = server.createobject("adodb.recordset")   
  3. sql = "Select * from friend order by id DESC"  
  4. rs.Open sql,conn,1   
  5. i=1   
  6. do while not rs.eof   
  7. %>      <td align="left" height="50">   
  8.             <a href="<%=rs("url")%>" target="_blank">   
  9.             <img src="<%=rs("logo")%>" class="framed" width="88" height="31" alt="<%=rs("name")%>" /></a>   
  10.         </td>   
  11. <%   
  12. if i mod 5 = 0 then   
  13. Response.Write("</tr><tr>")   
  14. end if   
  15. i=i+1   
  16. rs.movenext   
  17. Loop  
  18. rs.close   
  19. set rs=nothing   
  20. %>  

这个东西经常要用到好东西

Tags: asp, 循环, 个数

点击更换播放地址

 和奇奇在玩耍呢弄一个在线播放点击更换的代码

XML/HTML代码
  1. <EMBED id="player" style="FILTER: xray()" src="0.mp3" width=500 height=50 type=audio/mpeg loop="true" showstatusbar="true" autostart="true"  ></EMBED>  
  2.   
  3. <li><A onclick=player.FileName=this.value; href="#" value="1.mp3">牛仔很忙</A>     

弄完就放上来了

Tags: 更换

升级了Blog程序后去掉了头疼的Alt+Q

点击在新窗口中浏览此图片

在升级BLOG中没有出现什么da错误....

只不过在后台更新了缓存和修复插件就搞定了...

---------------------------------------------

在首页浏览的时候 有时候QQ会发个消息过来

而我的QQ设置成Ctrl+Alt+Q弹出消息~~~~

正好和Alt+Q有点小冲突 因为在按键的时候顺序往往会匹配

所以Alt+Q就把我在博客的帐号给退出来了很让人头疼

所以打开common/library.asp这个文件进行查找

accesskey=""Q""

找到了就不要客气删除这字眼吧!!!!

MSXML2.XMLHTTP组件与小偷的写法

代码:
MSXML2.XMLHTTP组件真是很有用

06.asp

<%
function getHTTPPage(url)
  dim Http
  set Http=server.createobject("MSXML2.XMLHTTP")
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then
      exit function
  end if
  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear
end function

Function BytesToBstr(body,Cset)
      dim objstream
      set objstream = Server.CreateObject("adodb.stream")
      objstream.Type = 1
      objstream.Mode =3
      objstream.Open
      objstream.Write body
      objstream.Position = 0
      objstream.Type = 2
      objstream.Charset = Cset
      BytesToBstr = objstream.ReadText
      objstream.Close
      set objstream = nothing
End Function

Dim Url,Html
Url="http://www.im286.com&#...
Html = getHTTPPage(Url)
Html = Replace(Html,"images/","http://www.im286.com/image...
Html = Replace(Html,"http://www.discuz.net/http...,"http://www.discuz.net/imag...
Html = Replace(Html,"forumdisplay.php?fid","06_1.asp?id")
Html = Replace(Html,"viewpro.php?username","06_3.asp?username")
Html = Replace(Html,"落伍","混混")
response.write html
%>

06_1.asp

<%
function getHTTPPage(url)
  dim Http
  set Http=server.createobject("MSXML2.XMLHTTP")
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then
      exit function
  end if
  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear
end function

Function BytesToBstr(body,Cset)
      dim objstream
      set objstream = Server.CreateObject("adodb.stream")
      objstream.Type = 1
      objstream.Mode =3
      objstream.Open
      objstream.Write body
      objstream.Position = 0
      objstream.Type = 2
      objstream.Charset = Cset
      BytesToBstr = objstream.ReadText
      objstream.Close
      set objstream = nothing
End Function

Dim Url,Html,id,page
id=request.querystring("id")
page=request.querystring("page")
If page ="" then
Url="http://www.im286.com/forum...
Else
Url="http://www.im286.com/forum...
End if
Html = getHTTPPage(Url)
Html = Replace(Html,"images/","http://www.im286.com/image...
Html = Replace(Html,"forumdisplay.php?fid","06_1.asp?id")
Html = Replace(Html,"viewthread.php?tid","06_2.asp?id")
Html = Replace(Html,"index.php","06.asp")
Html = Replace(Html,"viewpro.php?username","06_3.asp?username")
Html = Replace(Html,"viewpro.php?uid","06_3.asp?id")
Html = Replace(Html,"落伍","混混")
response.write html
%>

06_2.asp

<%
function getHTTPPage(url)
  dim Http
  set Http=server.createobject("MSXML2.XMLHTTP")
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then
      exit function
  end if
  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear
end function

Function BytesToBstr(body,Cset)
      dim objstream
      set objstream = Server.CreateObject("adodb.stream")
      objstream.Type = 1
      objstream.Mode =3
      objstream.Open
      objstream.Write body
      objstream.Position = 0
      objstream.Type = 2
      objstream.Charset = Cset
      BytesToBstr = objstream.ReadText
      objstream.Close
      set objstream = nothing
End Function

Dim Url,Html,id,page,extra
id=request.querystring("id")
page=request.querystring("page")
If page ="" then
Url="http://www.im286.com/viewt...
Else
Url="http://www.im286.com/viewt...
End if
Html = getHTTPPage(Url)
Html = Replace(Html,"images/","http://www.im286.com/image...
Html = Replace(Html,"forumdisplay.php?fid","06_1.asp?id")
Html = Replace(Html,"viewthread.php?tid","06_2.asp?id")
Html = Replace(Html,"index.php","06.asp")
Html = Replace(Html,"viewpro.php?username","06_3.asp?username")
Html = Replace(Html,"viewpro.php?uid","06_3.asp?id")
response.write html
%>

06_3.asp

<%
function getHTTPPage(url)
  dim Http
  set Http=server.createobject("MSXML2.XMLHTTP")
  Http.open "GET",url,false
  Http.send()
  if Http.readystate<>4 then
      exit function
  end if
  getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear
end function

Function BytesToBstr(body,Cset)
      dim objstream
      set objstream = Server.CreateObject("adodb.stream")
      objstream.Type = 1
      objstream.Mode =3
      objstream.Open
      objstream.Write body
      objstream.Position = 0
      objstream.Type = 2
      objstream.Charset = Cset
      BytesToBstr = objstream.ReadText
      objstream.Close
      set objstream = nothing
End Function

Dim Url,Html,id,page,extra
id=request.querystring("id")
username=request.querystring("username")
If id="" Then
Url="http://www.im286.com/viewp...
Else
url="http://www.im286.com/viewp...
End if
Html = getHTTPPage(Url)
Html = Replace(Html,"images/","http://www.im286.com/image...
'Html = Replace(Html,"forumdisplay.php?fid","06_1.asp?id")
'Html = Replace(Html,"viewthread.php?tid","06_2.asp?id")
Html = Replace(Html,"index.php","06.asp")
'Html = Replace(Html,"viewpro.php?username","06_3.asp?username")
'Html = Replace(Html,"viewpro.php?uid","06_3.asp?id")
response.write html
%>

仿电视结尾字幕效果

                   在网页上制作仿电视演职员表效果
    在网页的制作中,综合应用Dhtml、Css技术,结合<marqee>标签,可以在网页中
逼真地仿造出类似电视节目片头中的演职员表效果。方法是,用<div>标签结合样
式表的位置(position)属性,在屏幕上开辟一块区域,然后用样式表alpha滤镜将
该区域设为半透明,再在该区域中应用<marquee>标签制作字幕移动效果。将以下
代码复制到您网页的适当位置,您立即就能看到本效果。代码中的区域大小和bg_
line.gif 图形文件可按您的需要修改。

点击在新窗口中浏览此图片


[html]<html>
<head></head>
<body>
<div style="position:absolute; width:240px; height:200px; visibility:show;
     z-index:10; left:80px; top:30px; background-color:lightyellow;
     filter:alpha(Opacity=85)">
<table border=1 background="/attachments/month_0705/6200751174639.gif">
<tr>
<td width=240>
  <marquee style="height:200px;text-align:center;left:0px;top:1px;
          color:red;margin-left:1" background='' scrollAmount=1
          behavior=loop direction=up>
    网站建设单位:国瑞公司<br><br>
    网页制作:张 庆<br><br>
    时 间:二○○○年五月二十二日
  </marquee>
</td>
</tr>
</table>
</div>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
网页制作:张 庆&amp;nbsp;&amp;nbsp;时间:二○○○年五月二十二日<br>
<br><br>
<center><a href="javascript:window.close()">-关闭此窗口-</a></center>
</body>
</html>[/html]

[Asp] Mid 函数

从字符串中返回指定数目的字符。

Mid(string, start[, length])

参数
string

字符串表达式,从中返回字符。如果 string 包含 Null,则返回 Null。

Start

string 中被提取的字符部分的开始位置。如果 start 超过了 string 中字符的数目,Mid 将返回零长度字符串 ("")。

Length

要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到字符串结束的所有字符。

说明
要判断 string 中字符的数目,可使用 Len 函数。

下面的示例利用 Mid 函数返回字符串中从第四个字符开始的六个字符:

Dim MyVar
MyVar = Mid("VB脚本is fun!", 4, 6) 'MyVar 包含 "Script"。注意   MidB 函数与包含在字符串中的字节数据一起使用。其参数不是指定字符数,而是字节数。

asp中查找多个列表 where要用到and

Sql="select * from News Where Rootid="&amp;cstr(request("class"))&amp;" and Title like '%娱乐%' order by id DESC"

查找News表里面的Rootid和Title列表 以id倒序输出

asp中经常用到的检测有无文章

If Rs.Eof and Rs.bof Then

Response.Write "暂时没有文章"

End if

cstr的意思

字符转字符串的意思

比如Cstr(Request("id"))

把返回的id值转换为字符串