asp代码求ASP的代码

asp代码格式~！

set rs =server.CreateObject("adodb.recordset") rs.open " 5 * from SW_Activity where ClassID>0 order by id desc",conn,1,1 response.write rs("字段名") rs.movenext set rs1 =server.CreateObject("adodb.recordset") rs1.open " 5 * from SW_Ad where ClassID=1 order by id desc",conn,1,1 Do While Not Rs.Eof response.write rs("字段名") Rs.MoveNext:Loop

写一个简单的ASP代码

sub writeip()

set fs=createobject("scripting.filesystemobject")

set a=fs.opentextfile("d:ip.txt",true)

kip=Request.ServerVariables("REMOTE_ADDR")

a.writeline(kip)

a.close

end sub

解释一下asp代码

<a href="?h_id=<%=h_id%>&h_c_id=<%=rs("id")%>&check_=<%=check%>"><%=rs("h_c_name")%></a>

如： <a href="?h_id=1&h_c_id=1&check_=OK>">点击我</a>

很简单的，其实就是一个HTML的超级连接代码，<%=%>标记就是调用一个参数值,&的作用是连接分隔几个不同参数，问号就是超级连接的目标页为本页 <%=rs("h_c_name")%>这个是调用超级连接的文本

结果等于

点击一段文本 以本页打开一个URL连接，这个URL连接用&将几个参数分开以便本页的其它程序获得这几个不同的参数并执行相关操作！

asp代码怎么写？

ASP，是Active Server Page的缩写，意为“动态服务器页面”，是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。

现在很多ASP的程序都是不需要自己去编写的，有很多开源的源代码哦，只要进行简单的后台操作就可以实现了，也没有必要学的那么精。

现在网络上有很多关于ASP的开源模版，也有很多关于ASP的教程案例，可以自己找一下，研究下就可以了。

现在大多数网站已经是 PHP了哦，其中dedecms就是主导，因为用了cms发现网站变得简单了，不需要有多深的编写能力就可以完成一个比较好的网站。

asp比html有优势，但是相比PHP就没什么优势了，你应该考虑下有没有必要再向深了的学习。

求ASP的代码

<!--StartFragment--> <% '过滤字符串Str中的HTML代码 Public Function FilterHtml(Str) If Trim(Str) = "" Or IsNull(Str) Then FilterHtml="" Else Str = Replace(Str, ">", ">") Str = Replace(Str, "<", "<") Str = Replace(Str, Chr(32), "") Str = Replace(Str ,Chr(9), "") Str = Replace(Str, Chr(34), """) Str = Replace(Str, Chr(39), "'") Str = Replace(Str, Chr(13), "") Str = Replace(Str, Chr(10) & Chr(10), "</p><p>") Str = Replace(Str, Chr(10), "<br> ") FilterHtml = Str End If End Function %> <% Dim X X=Request.Form("text") If X<>"" Then %> 过滤引用:<%=FilterHtml(X)%>