asp小说网源码

一般ASP网站有一个包含的文件，你找得到主页的最后内容，找到或者的内容，看看里面的“....”的文件，再在相应目录找到这个文件修改里面的内容。当然以上内容也有可能放在数据库里面，那要靠自己去住据库找了。
不过使用人家的程序，保留一些内容是对别人劳动成果的尊重。

分页显示啊。。。。

第一句：
rs估计是你查询的结果集吧？
意思就是如果你差出来这条记录里面的pay值为1的话，默认就显示为选中。
换成就能看懂了吧？
值是做一个判断是否默认选中而已

第二句：
粗看，大概你这个页面或者include的页面中已经有创建了连接，
server.createobject("adodb.recordset")
是获取查询结果集
sql="SELECT Sum(sl) AS aa FROM myshop where admin='"&session("admin_user")&"'and zt='1'"
连接再做一次新定义的sql语句查询，
然后把结果集重新赋值给rs1

希望能够给你帮助

5分,告诉你吧,css

如果user表存在并且设计好。
假设字段分别为id，name，classname
那么如下代码即可。

name=request("name")
classname=request("classname")

set rs=server.createobject("adodb.recordset")
rs.open "select * from user",conn,1,3
rs.addnew
rs("name")=name
rs("classname")=classname
rs.update
rs.close

html的表单部分，用你的那2个文本框来输入就可以了。name和classname可以根据你自己的需要来改名。

多动手，祝你成功。

这是一个ASP表单。是用来修改站点的某些属性和设置的，处理程序是book_admin.asp?action=setup。

如果 WR_Setting(15)这个变量变成大写后 不等于 “ASP”的话，
页面就跳转到WRMPS.GetIndexUrl(MyCityID)--【应该是取得一个URL】

然后调用DBConnBegin()，应该是连接数据库之类的
初始化一个Cls_Page对象
调用方法ClsPage.PageIndex(MyCityID)，返回一个值用TempContent 接收
然后调用ClassEnd()
然后调用DBConnEnd()
最后将TempContent 写出来

If diqu<>"" Then
Call GetClassID(diqu)
Sql = Sql & "and ClassID in" & StrTmp &
End If
根据你的代码，解决方案：
第一个问题：Sql = Sql & "and ClassID in" & StrTmp & 此句语法错误。。。。求教？
---------------得出错误二点如下---------------------------------
一、StrTmp变量你没声明。他是在函数内套用的。你这样外部直接调用。是不起作用的。得不到数值，形成的SQL就是错误的。
二、Sql & "and ClassID in" & StrTmp & 中最后一个&符号不要，为防止错误，在IN后面加个空格，代码修改如下：
If diqu<>"" Then
Dim StrTmp:StrTmp=""'如果这个StrTmp变量你已经声明过了。这里就不需要
Call GetClassID(diqu)
Sql = Sql & "and ClassID in " & StrTmp
End If

第二个问题：输入日期区段 的查询不成功。

一、那个日期发送的是什么格式？
二、你需要的又是什么格式？
三、你的数据库中存放的日期又是什么格式？
四、你的具体应用场合是什么？

call是调用子程序，你应该去看看子程序PfieldList是怎么读取数库的。
估计"product","bigpic"应该是字据库表中的字段名，Product_Id是个变量，应该是告诉子程序要读取表中的主索引ID号。这样有索引号，有字段名，PfieldList子程序就能够正确读取数据库。至于Product_Id的值是什么，看上文相关的赋值语句Product_Id=？
我猜的！

该段代码是读取某一条留言内容的数据库连接
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("Id") <> "") Then
Recordset1__MMColParam = Request.QueryString("Id")
End If
%> '获取留言ID，如果为空，则为1

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset") '新建记录集
Recordset1.ActiveConnection = MM_conn_STRING '设置记录集的数据库连接字符串
Recordset1.Source = "SELECT * FROM dbo.liuyan WHERE Id = " + Replace(Recordset1__MMColParam, "'", "''") + "" '设置记录集查询字符串，按照ID从留言表中读取所有字段, 其中有个对ID进行替换，把id中'换为''
Recordset1.CursorType = 0 '设置记录集游标类型
Recordset1.CursorLocation = 3 '设置游标所在位置
Recordset1.LockType = 1 '设置读取该条记录时，其他记录锁定类型
Recordset1.Open() '打开记录集

Recordset1_numRows = 0
%>