|
ASP程序实现网页伪静态页源代码
<% 数据库链接 db="data.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) conn.open connstr If Err Then err.Clear Set conn = Nothing Response.Write "数据库连接出错,请检查连接字串。" Response.End End If 定义新闻阅读界面的读取 Dim News_title,News_content Sub ReadNews() set rs1=server.createobject("adodb.recordset") sql1="select id,title,content from article where id="& ID rs1.open sql1,conn,3,3 News_title=rs1("title") News_content=rs1("content") rs1.close set rs1=Nothing End Sub %> | 三、Default.aspASP/Visual Basic代码
<% Set rs=server.CreateObject("adodb.recordset") sql="select * from Article" rs.open sql,conn,1,1 do while not rs.eof %>
- .html"><%=left(trim(rs("title")),30)%>
<% rs.movenext loop rs.close set rs=Nothing %>
| 四、Article.asp ASP/Visual Basic代码
<% id=request.QueryString("id") If id="" Then server_v40=Request.ServerVariables("QUERY_STRING") id=Int(replace(replace(server_v40,"/",""),".html","")) End If Call ReadNews() %>
标题: <%= News_title%>
内容: <%=News_content%>
| 这个教程已经能实现最基本的功能,具体大家就想怎么应用就八仙过海,各显神通了! |