asp源码修改_小马资源

其他答案(2)

asp源码修改

index.asp中找到 <% =mRs("Works_Name") %>

替换为 <a href="a.asp?id=<%=mRs("Works_Id")%>"><% =mRs("Works_Name") %></a>

a.asp代码如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " ">
<html xmlns=" ">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("#Date.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接地址
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Dim id,sql
id = Request.QueryString("id")
sql="Select * from [Works] where Works_Id="&id
Set rs=Server.CreateObject("adodb.recordSet")
rs.open sql,conn,1,1
do until rs.EOF
%>
id:<%response.Write(rs("Works_Id"))%>
 
name:<%response.Write(rs("Works_Name"))%>
 
Yurl:<%response.Write(rs("Works_Yurl"))%>
 
Durl:<%response.Write(rs("Works_Durl"))%>
 
Info:<%response.Write(rs("Works_Info"))%>
 
Time:<%response.Write(rs("Works_Time"))%>
 
Hit:<%response.Write(rs("Works_Hit"))%>
 
Hot:<%response.Write(rs("Works_Hot"))%>
<%
rs.movenext
loop
%>
<%conn.close%>
</body>
</html>

继续追问：

再请你帮个忙

修改作品展开：默认的是每页第一个的作品介绍自动展开

index.asp?abc=17 //格式随便你定

当连接为这样的时候，打开连接后第17个作品在首页的作品介绍自动展开，只展开第17个的作品介绍

麻烦修改的时候先添加10几个作品试一下，以前有人修改过要么连接不到第二页，要么在第二页不展开谢谢

麻烦了 * - *

(责任编辑：IT路路通)

搜索

热门标签:

asp源码修改