28,409
社区成员
发帖
与我相关
我的任务
分享网站研究中疑惑,请老师指教~
在Default.asp中 的代码如下:
<%
response.redirect "index.asp" 此语句是不是执行了跳转到index.asp页面的命令?
%>
<script language=javascript ></script> 此语句为何意思?有什么意义?
在index.asp中的代码如下:
<!--#include file="conn.asp"--> 此语句是不是指在index.asp中倒入conn.asp页面?
<!--#include file="webconfig.asp"--> 同上
<html><head><title><%=webname%>首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="webtop.asp"-->
<!--#include file="body.asp"-->
<!--#include file="webfoot.asp"-->
</body>
</html>
<script language=javascript ></script> 此语句有何意义?可以删除不?
webconfig.asp的代码如下:
<%
dim webname,webemail,dizhi,youbian,dianhua,copyright,webbanner,weblogo,weburl,gonggao
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,webemail,dizhi,youbian,dianhua,copyright,musicurl,gonggao,weblogo,weburl,webbanner from wq_config",conn,1,1
webname=trim(rs("webname"))
webemail=trim(rs("webemail"))
dizhi=trim(rs("dizhi"))
youbian=trim(rs("youbian"))
dianhua=trim(rs("dianhua"))
copyright=trim(rs("copyright"))
weblogo=trim(rs("weblogo"))
webbanner=trim(rs("webbanner"))
weburl=trim(rs("weburl"))
shopurl=trim(rs("musicurl"))
gonggao=trim(rs("gonggao"))
rs.Close
set rs=nothing
Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
'fString=ChkBadWords(fString)
HTMLEncode = fString
else
HTMLEncode=fstring
end if
end function
Rem 过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
end function
Rem 判断数字是否整形
function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
end function
%>
<script language=javascript ></script>
webconfig.asp实现的是什么功能?看不懂...
<%
response.redirect "index.asp" 此语句是不是执行了跳转到index.asp页面的命令?
%>
<script language=javascript ></script> 此语句为何意思?有什么意义?
在index.asp中的代码如下:
<!--#include file="conn.asp"--> 此语句是不是指在index.asp中倒入conn.asp页面?
<!--#include file="webconfig.asp"--> 同上
<html><head><title><%=webname%>首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" >
<!--#include file="webtop.asp"-->
<!--#include file="body.asp"-->
<!--#include file="webfoot.asp"-->
</body>
</html>
<script language=javascript ></script> 此语句有何意义?可以删除不?
webconfig.asp的代码如下:
<%
dim webname,webemail,dizhi,youbian,dianhua,copyright,webbanner,weblogo,weburl,gonggao
set rs=server.CreateObject("adodb.recordset")
rs.Open "select webname,webemail,dizhi,youbian,dianhua,copyright,musicurl,gonggao,weblogo,weburl,webbanner from wq_config",conn,1,1
webname=trim(rs("webname"))
webemail=trim(rs("webemail"))
dizhi=trim(rs("dizhi"))
youbian=trim(rs("youbian"))
dianhua=trim(rs("dianhua"))
copyright=trim(rs("copyright"))
weblogo=trim(rs("weblogo"))
webbanner=trim(rs("webbanner"))
weburl=trim(rs("weburl"))
shopurl=trim(rs("musicurl"))
gonggao=trim(rs("gonggao"))
rs.Close
set rs=nothing
Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
'fString=ChkBadWords(fString)
HTMLEncode = fString
else
HTMLEncode=fstring
end if
end function
Rem 过滤SQL非法字符
function checkStr(str)
if isnull(str) then
checkStr = ""
exit function
end if
checkStr=replace(str,"'","''")
end function
Rem 判断数字是否整形
function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
end function
%>
<script language=javascript ></script>
webconfig.asp实现的是什么功能?看不懂...
...全文
请发表友善的回复…
发表回复
snlixing 2008-03-27
- 打赏
- 举报
[Quote=引用 1 楼 hookee 的回复:]
response.redirect "index.asp" 此语句是不是执行了跳转到index.asp页面的命令?
是，统一从index.asp开始访问
<script language=javascript > </script> 此语句为何意思?有什么意义?
客户端脚本，要看客户端代码，如果没有用到，可以删除
webconfig.asp
将一些常用的基本信息取出，避免每页都要写（不过可以放入application，只取一次）
定义了一些常用的函数，如防止注入攻击的，判断数字的,转换HTML标签…
[/Quote]
response.redirect "index.asp" 此语句是不是执行了跳转到index.asp页面的命令?
是，统一从index.asp开始访问
<script language=javascript > </script> 此语句为何意思?有什么意义?
客户端脚本，要看客户端代码，如果没有用到，可以删除
webconfig.asp
将一些常用的基本信息取出，避免每页都要写（不过可以放入application，只取一次）
定义了一些常用的函数，如防止注入攻击的，判断数字的,转换HTML标签…
[/Quote]
hookee 2008-03-27
- 打赏
- 举报
response.redirect "index.asp" 此语句是不是执行了跳转到index.asp页面的命令?
是，统一从index.asp开始访问
<script language=javascript > </script> 此语句为何意思?有什么意义?
客户端脚本，要看客户端代码，如果没有用到，可以删除
webconfig.asp
将一些常用的基本信息取出，避免每页都要写（不过可以放入application，只取一次）
定义了一些常用的函数，如防止注入攻击的，判断数字的,转换HTML标签的
是，统一从index.asp开始访问
<script language=javascript > </script> 此语句为何意思?有什么意义?
客户端脚本，要看客户端代码，如果没有用到，可以删除
webconfig.asp
将一些常用的基本信息取出，避免每页都要写（不过可以放入application，只取一次）
定义了一些常用的函数，如防止注入攻击的，判断数字的,转换HTML标签的
