ASP前台链接后台的代码,看不懂。谁帮我翻一下,仔细点啊! 20

<!--#includefile="include/#888.asp"--><%callaspsql()id=request("id")IfnotisNumeric(id... <!--#include file="include/#888.asp"-->
<%
call aspsql()
id=request("id")
If not isNumeric(id) then
response.redirect "main.asp"
response.end
end if

title="title"&cstr(11)
body="body"&cstr(11)
Set rsp = conn.Execute("select * from page")
body=rsp(body)
title=rsp(title)
set rsp=nothing
if body="" then response.redirect "main.asp"
%>
<html><head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body oncontextmenu="return false" ondragstart="return false" onbeforecopy="return false" oncopy=document.selection.empty()
onbeforecopy="return false" oncopy=document.selection.empty() leftMargin=0 topMargin=0 >

没学过ASP,但是对网页设计很感兴趣,在网上找了个后台..不会弄
展开
 我来答
liouxing13
2009-07-06 · 超过68用户采纳过TA的回答
知道小有建树答主
回答量:163
采纳率:0%
帮助的人:192万
展开全部
<!--#include file="include/#888.asp"-->
<%
'********调用aspsql函数
call aspsql()
'********取得名为id的参数
id=request("id")
'********判断如果id不是数字
If not isNumeric(id) then
'********重新定向到main.asp,就是转到main.asp
response.redirect "main.asp"
'********结束,后面的代码不会继续执行
response.end
end if

'********把11转换成string型,与title链接,即为“title11”
title="title"&cstr(11)
'********定义一个recordset变量,存贮page表中查询出的结果
body="body"&cstr(11) ********同上
Set rsp = conn.Execute("select * from page")
'********取得数据库中body的值,不过我记得好像括号里的body应该带引号
body=rsp(body)
'********同上
title=rsp(title)
'********清空recordset
set rsp=nothing

if body="" then response.redirect "main.asp"
%>
<html><head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css" type="text/css">
</head>
<body oncontextmenu="return false" ondragstart="return false" onbeforecopy="return false" oncopy=document.selection.empty()
onbeforecopy="return false" oncopy=document.selection.empty() leftMargin=0 topMargin=0 >
明天的旅行
2009-07-07 · 超过12用户采纳过TA的回答
知道答主
回答量:65
采纳率:0%
帮助的人:85.4万
展开全部
dim db,dbpath,conn
dim rs,SQL
db="数据库路径"
Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
小鱼的眼皮
2009-07-04 · TA获得超过2607个赞
知道小有建树答主
回答量:1608
采纳率:0%
帮助的人:701万
展开全部
call aspsql() 这个就是条用 连接数据的函数
貌似应该是这个 你看一下
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
lhz4lhz
2009-07-07 · TA获得超过103个赞
知道答主
回答量:79
采纳率:0%
帮助的人:64.5万
展开全部
既然你没学过ASP,有些基本术语的意思你也无法明白,没法解释。。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式