Õâ¶ÎaspÉú³Éxml ÄÇÀï´íÁË?ÄÄλ´ó¸ç°ï°ïæ°¡
VB code:
<!--#include file="conn.asp"--><!--#include file="sqlin.asp"--><?xml version="1.0" encoding="gbk"?>
<%
Request_id=Request("aa")
sql="select id,bookhtml,bookupdateid,bookupdatetitle from Ws_BookList where "&Request_id&" 1=1"
set rs = server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,1
%>
<DOCUMENT>
<item>
<key><%=rs("booktitle")%></key>
<display>
<url><![CDATA[http://www.56xs.net/book/<%=rs("id")%>/index.aspx]]></url>
<title><%=rs("booktitle")%>-56Ð¡ËµÍø</title>
<showurl><![CDATA[www.56xs.net/book/<%=rs("id")%>/index.aspx]]></showurl>
<pagesize>17k</pagesize>
<date>2009-10-02</date>
<content1>56Ãâ·ÑС˵ÔĶÁÍøÌṩ<%=rs("bookwriter")%>µÄ<%=rs("booktitle")%>×îÐÂÕ½Ú<%=rs("bookupdatetitle")%>ÔÚÏßÔĶÁ,²¢Ìṩ<%=rs("booktitle")%>TXT¡¢CHM¡¢UMD¡¢JAR¡¢JADµç×ÓÊéÃâ·ÑÏÂÔØ ...</content1>
<link linkurl="http://www.56xs.net<%=rs("bookhtml")%><%=rs("id")%>/index.shtml" linkcontent="<%=rs("booktitle")%>Ŀ¼" />
<link linku
Ïà¹ØÎÊ´ð£º
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'×¢Òâ±äÁ¿ ......
ÎÒÃÇÓÐÒ»¸öÍøÕ¾Ä£°å£¬www.c111.com.cn,Ï£ÍûÐÞ¸ÄһЩµØ·½£º
1£©µã»÷×ó²à¡°·þÎñÆ·ÅÆ¡±µÄÆäÖÐÒ»¸öС·ÖÀ࣬Èç¡°×ãÇò¡±£¬½çÃæµÄÓÒ²à¾Í³öÏÖÈçwww.c111.com.cn/1.jpg£¬µã»÷1.jpgÉÏ·½µÄÆäÖÐÒ»¸öÆ·ÅÆlogo£¬ÏÂÃæ¾Í³öÏÖÏà¹ØµÄÍ ......
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
ÔÚVB°´MVCµÄ¹¹¼Üд×é¼þ¹©ASPµ÷ÓÃ
BLL²ã
VB code:
Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub
......
Õâ¸ö³ÌÐòÊǶÁ´óһʱѧCÓïÑÔÎÒ×Ô¼ºÏë³öµÄ£¬ÀÏʦֱ¿äÎÒ´ÏÃ÷£¬ÏÖÔÚÓÃASP¸ÄдÁË£¬´ó¼ÒÖªµÀÔËÐнá¹ûÂð
<table width="486" border="1" cellpadding="0" cellspacing="1"& ......