网站分析报告 本文简介:
网站分析报告?[摘要]:在信息高速发展的今天,信息管理已经成了一个公司管理的重要问题。因此,有一套很好的信息管理模式,有一个综合信息网站就显的很重要了。本文全面的分析了一个综合信息网站的结构、功能、用途以及对公司产生的重要影响,对网站的建设、维护和推广具有很好的指导作用。[关键词]:ASP,信息查询
网站分析报告 本文内容:
网站分析报告
密
码:name="textfield2"
type="password">
返回
type="submit"
name="Submit"
value="站长登陆">
b.
登陆页面数据连接部分:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim
Recordset1
Dim
Recordset1_numRows
Set
Recordset1
=
Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection
=
MM_gengxinmima_STRING
Recordset1.Source
=
"SELECT
*
FROM
表1
ORDER
BY
用户名
ASC"
Recordset1.CursorType
=
0
Recordset1.CursorLocation
=
2
Recordset1.LockType
=
1
Recordset1.Open()
Recordset1_numRows
=
0
%>
<%
"
***
Validate
request
to
log
in
to
this
site.
MM_LoginAction
=
Request.ServerVariables("URL")
If
Request.QueryString<>""
Then
MM_LoginAction
=
MM_LoginAction
+
"?"
+
Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("textfield"))
If
MM_valUsername
<>
""
ThenMM_fldUserAuthorization=""MM_redirectLoginSuccess="guanli.asp"MM_redirectLoginFailed="shibai.html"MM_flag="ADODB.Recordset"set
MM_rsUser
=
Server.CreateObject(MM_flag)MM_rsUser.ActiveConnection
=
MM_gengxinmima_STRINGMM_rsUser.Source
=
"SELECT
用户名,
密码"If
MM_fldUserAuthorization
<>
""
Then
MM_rsUser.Source
=
MM_rsUser.Source
&
","
&
MM_fldUserAuthorizationMM_rsUser.Source
=
MM_rsUser.Source
&
"
FROM
表1
WHERE
用户名=""
&
Replace(MM_valUsername,""","""")
&""
AND
密码=""
&
Replace(Request.Form("textfield2"),""","""")
&
"""MM_rsUser.CursorType
=
0MM_rsUser.CursorLocation
=
2MM_rsUser.LockType
=
3MM_rsUser.OpenIf
Not
MM_rsUser.EOF
Or
Not
MM_rsUser.BOF
Then
"
username
and
password
match
-
this
is
a
valid
user
Session("MM_Username")
=
MM_valUsername
If
(MM_fldUserAuthorization
<>
"")
ThenSession("MM_UserAuthorization")
=
CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
ElseSession("MM_UserAuthorization")
=
""
End
If
if
CStr(Request.QueryString("accessdenied"))
<>
""
And
false
ThenMM_redirectLoginSuccess
=
Request.QueryString("accessdenied")
End
If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)End
IfMM_rsUser.CloseResponse.Redirect(MM_redirectLoginFailed)
End
If
%>
c.
更新密码表单实现部分:用户名:
type="text"
name="Element"
value="<%=(Recordset1.Fields.Item("用户名").Value)%>"
size="32">密码:
type="password"
name="Element2"
value="<%=(Recordset1.Fields.Item("密码").Value)%>"
size="32">type="submit"
value="更新记录">
type="hidden"
name="MM_update"
value="form1">type="hidden"
name="MM_recordId"
value="<%=
Recordset1.Fields.Item("用户名").Value
%>">
d.
更新密码数据连接部分:
<%@LANGUAGE="VBSCRIPT"%>
<%
"
***
Edit
Operations:
declare
variables
Dim
MM_editAction
Dim
MM_abortEdit
Dim
MM_editQuery
Dim
MM_editCmd
Dim
MM_editConnection
Dim
MM_editTable
Dim
MM_editRedirectUrl
Dim
MM_editColumn
Dim
MM_recorded
Dim
MM_fieldsStr
Dim
MM_columnsStr
Dim
MM_fields
Dim
MM_columns
Dim
MM_typeArray
Dim
MM_formVal
Dim
MM_delim
Dim
MM_altVal
Dim
MM_emptyVal
Dim
MM_i
MM_editAction
=
CStr(Request.ServerVariables("SCRIPT_NAME"))
If
(Request.QueryString
<>
"")
ThenMM_editAction
=
MM_editAction
&
"?"
&
Server.HTMLEncode(Request.QueryString)
End
If
boolean
to
abort
record
edit
MM_abortEdit
=
false
query
string
to
execute
MM_editQuery
=
""
%>
<%
"
***
Update
Record:
set
variables
?
If
(CStr(Request("MM_update"))
=
"form1"
And
CStr(Request("MM_recordId"))
<>
"")
Then
MM_editConnection
=
MM_gengxinmima_STRINGMM_editTable
=
"表1"MM_editColumn
=
"用户名"MM_recordId
=
"""
+
Request.Form("MM_recordId")
+
"""MM_editRedirectUrl
=
"denglu.asp"MM_fieldsStr
=
"Element|value|Element2|value"MM_columnsStr
=
"用户名|",none,""|密码|",none,"""
"
create
the
MM_fields
and
MM_columns
arraysMM_fields
=
Split(MM_fieldsStr,
"|")MM_columns
=
Split(MM_columnsStr,
"|")"
set
the
form
valuesFor
MM_i
=
LBound(MM_fields)
To
UBound(MM_fields)
Step
2
MM_fields(MM_i+1)
=
CStr(Request.Form(MM_fields(MM_i)))Next
append
the
query
string
to
the
redirect
URLIf
(MM_editRedirectUrl
<>
""
And
Request.QueryString
<>
"")
Then
If
(InStr(1,
MM_editRedirectUrl,
"?",
vbTextCompare)
=
0
And
Request.QueryString
<>
"")
ThenMM_editRedirectUrl
=
MM_editRedirectUrl
&
"?"
&
Request.QueryString
ElseMM_editRedirectUrl
=
MM_editRedirectUrl
&
"&"
&
Request.QueryString
End
IfEnd
If
?
End
If
%>
<%
"
***
Update
Record:
construct
a
sql
update
statement
and
execute
it
If
(CStr(Request("MM_update"))
<>
""
And
CStr(Request("MM_recordId"))
<>
"")
Then
create
the
sql
update
statementMM_editQuery
=
"update
"
&
MM_editTable
&
"
set
"For
MM_i
=
LBound(MM_fields)
To
UBound(MM_fields)
Step
2
MM_formVal
=
MM_fields(MM_i+1)
MM_typeArray
=
Split(MM_columns(MM_i+1),",")
MM_delim
=
MM_typeArray(0)
If
(MM_delim
=
"none")
Then
MM_delim
=
""
MM_altVal
=
MM_typeArray(1)
If
(MM_altVal
=
"none")
Then
MM_altVal
=
""
MM_emptyVal
=
MM_typeArray(2)
If
(MM_emptyVal
=
"none")
Then
MM_emptyVal
=
""
If
(MM_formVal
=
"")
ThenMM_formVal
=
MM_emptyVal
ElseIf
(MM_altVal
<>
"")
Then
MM_formVal
=
MM_altValElseIf
(MM_delim
=
""")
Then
"
escape
quotes
MM_formVal
=
"""
&
Replace(MM_formVal,""","""")
&
"""Else
MM_formVal
=
MM_delim
+
MM_formVal
+
MM_delimEnd
If
End
If
If
(MM_i
<>
LBound(MM_fields))
ThenMM_editQuery
=
MM_editQuery
&
","
End
If
MM_editQuery
=
MM_editQuery
&
MM_columns(MM_i)
&
"
=
"
&
MM_formValNextMM_editQuery
=
MM_editQuery
&
"
where
"
&
MM_editColumn
&
"
=
"
&
MM_recordId
If
(Not
MM_abortEdit)
Then
"
execute
the
update
Set
MM_editCmd
=
Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection
=
MM_editConnection
MM_editCmd.CommandText
=
MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If
(MM_editRedirectUrl
<>
"")
ThenResponse.Redirect(MM_editRedirectUrl)
End
IfEnd
If
End
If
%>
<%
Dim
Recordset1
Dim
Recordset1_numRows
Set
Recordset1
=
Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection
=
MM_gengxinmima_STRING
Recordset1.Source
=
"SELECT
*
FROM
表1
ORDER
BY
用户名
ASC"
Recordset1.CursorType
=
0
Recordset1.CursorLocation
=
2
Recordset1.LockType
=
1
Recordset1.Open()
Recordset1_numRows
=
0
%>
3.
综合信息部分:
(1).
详细页显示记录部分:
a.
插入记录部分:
<%@LANGUAGE="VBSCRIPT"
CODEPAGE="936"%>
<%
"
***
Edit
Operations:
declare
variables
Dim
MM_editAction
Dim
MM_abortEdit
Dim
MM_editQuery
Dim
MM_editCmd
Dim
MM_editConnection
Dim
MM_editTable
Dim
MM_editRedirectUrl
Dim
MM_editColumn
Dim
MM_recordId
Dim
MM_fieldsStr
Dim
MM_columnsStr
Dim
MM_fields
Dim
MM_columns
Dim
MM_typeArray
Dim
MM_formVal
Dim
MM_delim
Dim
MM_altVal
Dim
MM_emptyVal
Dim
MM_I
MM_editAction
=
CStr(Request.ServerVariables("SCRIPT_NAME"))
If
(Request.QueryString
<>
"")
ThenMM_editAction
=
MM_editAction
&
"?"
&
Request.QueryString
End
If
boolean
to
abort
record
edit
MM_abortEdit
=
false
query
string
to
execute
MM_editQuery
=
""
%>
<%
"
***
Insert
Record:
set
variables
If
(CStr(Request("MM_insert"))
=
"form1")
MM_editConnection
=
MM_zhxx_STRINGMM_editTable
=
"表1"MM_editRedirectUrl
=
"zonghexinxi.asp"MM_fieldsStr
=
"ID|value|Element|value|Element2|value|Element3|value|Element4|value|Element5|value|Element6|value|Element7|value|Element8|value|Element9|value"MM_columnsStr
=
"ID|none,none,NULL|职位|",none,""|姓名|",none,""|性别|",none,""|年龄|",none,""|工龄|",none,""|家庭地址|",none,""|联系电话|",none,""|爱好|",none,""|专业|",none,""
create
the
MM_fields
and
MM_columns
arraysMM_fields
=
Split(MM_fieldsStr,
"|")MM_columns
=
Split(MM_columnsStr,
"|")"
set
the
form
valuesFor
MM_i
=
LBound(MM_fields)
To
UBound(MM_fields)
Step
2
MM_fields(MM_i+1)
=
CStr(Request.Form(MM_fields(MM_i)))Next
append
the
query
string
to
the
redirect
URLIf
(MM_editRedirectUrl
<>
""
And
Request.QueryString
<>
"")
Then
If
(InStr(1,
MM_editRedirectUrl,
"?",
vbTextCompare)
=
0
And
Request.QueryString
<>
"")
ThenMM_editRedirectUrl
=
MM_editRedirectUrl
&
"?"
&
Request.QueryString
ElseMM_editRedirectUrl
=
MM_editRedirectUrl
&
"&"
&
Request.QueryString
End
IfEnd
If
End
If
%>
<%
"
***
Insert
Record:
construct
a
sql
insert
statement
and
execute
it
Dim
MM_tableValues
Dim
MM_dbValues
f
(CStr(Request("MM_insert"))
<>
"")
Then
create
the
sql
insert
statementMM_tableValues
=
""MM_dbValues
=
""For
MM_i
=
LBound(MM_fields)
To
UBound(MM_fields)
Step
2
MM_formVal
=
MM_fields(MM_i+1)
MM_typeArray
=
Split(MM_columns(MM_i+1),",")
MM_delim
=
MM_typeArray(0)
If
(MM_delim
=
"none")
Then
MM_delim
=
""
MM_altVal
=
MM_typeArray(1)
If
(MM_altVal
=
"none")
Then
MM_altVal
=
""
MM_emptyVal
=
MM_typeArray(2)
If
(MM_emptyVal
=
"none")
Then
MM_emptyVal
=
""
If
(MM_formVal
=
"")
ThenMM_formVal
=
MM_emptyVal
ElseIf
(MM_altVal
<>
"")
Then
MM_formVal
=
MM_altValElseIf
(MM_delim
=
""")
Then
"
escape
quotes
MM_formVal
=
"""
&
Replace(MM_formVal,""","""")
&
"""Else
MM_formVal
=
MM_delim
+
MM_formVal
+
MM_delimEnd
If
End
If
If
(MM_i
<>
LBound(MM_fields))
ThenMM_tableValues
=
MM_tableValues
&
","MM_dbValues
=
MM_dbValues
&
","
End
If
MM_tableValues
=
MM_tableValues
&
MM_columns(MM_i)
MM_dbValues
=
MM_dbValues
&
MM_formValNextMM_editQuery
=
"insert
into
"
&
MM_editTable
&
"
("
&
MM_tableValues
&
")
values
("
&
MM_dbValues
&
")"
If
(Not
MM_abortEdit)
Then
"
execute
the
insert
Set
MM_editCmd
=
Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection
=
MM_editConnection
MM_editCmd.CommandText
=
MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If
(MM_editRedirectUrl
<>
"")
ThenResponse.Redirect(MM_editRedirectUrl)
End
IfEnd
IfEnd
If
%>
<%
Dim
Recordset1
Dim
Recordset1_numRows
Set
Recordset1
=
Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection
=
MM_zhxx_STRING
Recordset1.Source
=
"SELECT
*
FROM
表1
ORDER
BY
ID
ASC"
Recordset1.CursorType
=
0
Recordset1.CursorLocation
=
2
Recordset1.LockType
=
1
Recordset1.Open()
Recordset1_numRows
=
0
%>
(2).
删除记录部分
a.
表单实现部分:(2).
数据连接部分:
<%@LANGUAGE="VBSCRIPT"%>
<%
"
***
Edit
Operations:
declare
variables
Dim
MM_editAction
Dim
MM_abortEdit
Dim
MM_editQuery
Dim
MM_editCmd
Dim
MM_editConnection
Dim
MM_editTable
Dim
MM_editRedirectUrl
Dim
MM_editColumn
Dim
MM_recorded
Dim
MM_fieldsStr
Dim
MM_columnsStr
Dim
MM_fields
Dim
MM_columns
Dim
MM_typeArray
Dim
MM_formVal
Dim
MM_delim
Dim
MM_altVal
Dim
MM_emptyVal
Dim
MM_i
?
MM_editAction
=
CStr(Request.ServerVariables("SCRIPT_NAME"))
If
(Request.QueryString
<>
"")
ThenMM_editAction
=
MM_editAction
&
"?"
&
Server.HTMLEncode(Request.QueryString)
End
If
?
"
boolean
to
abort
record
edit
MM_abortEdit
=
false
?
"
query
string
to
execute
MM_editQuery
=
""
%>
<%
"
***
Delete
Record:
declare
variables
?
if
(CStr(Request("MM_delete"))
=
"form1"
And
CStr(Request("MM_recordId"))
<>
"")
Then
?MM_editConnection
=
MM_zhxx_STRINGMM_editTable
=
"表1"MM_editColumn
=
"ID"MM_recordId
=
""
+
Request.Form("MM_recordId")
+
""MM_editRedirectUrl
=
"shanchujilu.asp"
append
the
query
string
to
the
redirect
URLIf
(MM_editRedirectUrl
<>
""
And
Request.QueryString
<>
"")
Then
If
(InStr(1,
MM_editRedirectUrl,
"?",
vbTextCompare)
=
0
And
Request.QueryString
<>
"")
ThenMM_editRedirectUrl
=
MM_editRedirectUrl
&
"?"
&
Request.QueryString
ElseMM_editRedirectUrl
=
MM_editRedirectUrl
&
"&"
&
Request.QueryString
End
IfEnd
IfEnd
If
%>
<%
"
***
Delete
Record:
construct
a
sql
delete
statement
and
execute
it
?
If
(CStr(Request("MM_delete"))
<>
""
And
CStr(Request("MM_recordId"))
<>
"")
Then
?"
create
the
sql
delete
statementMM_editQuery
=
"delete
from
"
&
MM_editTable
&
"
where
"
&
MM_editColumn
&
"
=
"
&
MM_recordId
?If
(Not
MM_abortEdit)
Then
"
execute
the
delete
Set
MM_editCmd
=
Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection
=
MM_editConnection
MM_editCmd.CommandText
=
MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If
(MM_editRedirectUrl
<>
"")
ThenResponse.Redirect(MM_editRedirectUrl)
End
IfEnd
If
?
End
If
%>
<%
Dim
Recordset1
Dim
Recordset1_numRows
?
Set
Recordset1
=
Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection
=
MM_zhxx_STRING
Recordset1.Source
=
"SELECT
*
FROM
表1
ORDER
BY
ID
ASC"
Recordset1.CursorType
=
0
Recordset1.CursorLocation
=
2
Recordset1.LockType
=
1
Recordset1.Open()
?
Recordset1_numRows
=
0
%>
<%
"
***
Recordset
Stats,
Move
To
Record,
and
Go
To
Record:
declare
stats
variables
?
Dim
Recordset1_total
Dim
Recordset1_first
Dim
Recordset1_last
?
"
set
the
record
count
Recordset1_total
=
Recordset1.RecordCount
?
"
set
the
number
of
rows
displayed
on
this
page
If
(Recordset1_numRows
<
0)
ThenRecordset1_numRows
=
Recordset1_total
Elseif
(Recordset1_numRows
=
0)
ThenRecordset1_numRows
=
1
End
If
?
"
set
the
first
and
last
displayed
record
Recordset1_first
=
1
Recordset1_last
=
Recordset1_first
+
Recordset1_numRows
-
1
?
"
if
we
have
the
correct
record
count,
check
the
other
stats
If
(Recordset1_total
<>
-1)
ThenIf
(Recordset1_first
>
Recordset1_total)
Then
Recordset1_first
=
Recordset1_totalEnd
IfIf
(Recordset1_last
>
Recordset1_total)
Then
Recordset1_last
=
Recordset1_totalEnd
IfIf
(Recordset1_numRows
>
Recordset1_total)
Then
Recordset1_numRows
=
Recordset1_totalEnd
If
End
If
%>
<%
Dim
MM_paramName
%>
<%
"
***
Move
To
Record
and
Go
To
Record:
declare
variables
?
Dim
MM_rs
Dim
MM_rsCount
Dim
MM_size
Dim
MM_uniqueCol
Dim
MM_offset
Dim
MM_atTotal
Dim
MM_paramIsDefined
?
Dim
MM_param
Dim
MM_index
?
Set
MM_rs=
Recordset1
MM_rsCount
=
Recordset1_total
MM_size
=
Recordset1_numRows
MM_uniqueCol
=
""
MM_paramName
=
""
MM_offset
=
0
MM_atTotal
=
false
MM_paramIsDefined
=
false
If
(MM_paramName
<>
"")
ThenMM_paramIsDefined
=
(Request.QueryString(MM_paramName)
<>
"")
End
If
%>
<%
"
***
Move
To
Record:
handle
"index"
or
"offset"
parameter
?
if
(Not
MM_paramIsDefined
And
MM_rsCount
<>
0)
then
?"
use
index
parameter
if
defined,
otherwise
use
offset
parameterMM_param
=
Request.QueryString("index")If
(MM_param
=
"")
Then
MM_param
=
Request.QueryString("offset")End
IfIf
(MM_param
<>
"")
Then
MM_offset
=
Int(MM_param)End
If
if
we
have
a
record
count,
check
if
we
are
past
the
end
of
the
recordsetIf
(MM_rsCount
<>
-1)
Then
If
(MM_offset
>=
MM_rsCount
Or
MM_offset
=
-1)
Then
"
past
end
or
move
lastIf
((MM_rsCount
Mod
MM_size)
>
0)
Then
"
last
page
not
a
full
repeat
region
MM_offset
=
MM_rsCount
-
(MM_rsCount
Mod
MM_size)Else
MM_offset
=
MM_rsCount
-
MM_sizeEnd
If
End
IfEnd
If
move
the
cursor
to
the
selected
recordMM_index
=
0While
((Not
MM_rs.EOF)
And
(MM_index
<
MM_offset
Or
MM_offset
=
-1))
MM_rs.MoveNext
MM_index
=
MM_index
+
1WendIf
(MM_rs.EOF)
Then
MM_offset
=
MM_index
"
set
MM_offset
to
the
last
possible
recordEnd
If
End
If
%>
<%
"
***
Move
To
Record:
if
we
dont
know
the
record
count,
check
the
display
range
?
If
(MM_rsCount
=
-1)
T
walk
to
the
end
of
the
display
range
for
this
pageMM_index
=
MM_offsetWhile
(Not
MM_rs.EOF
And
(MM_size
<
0
Or
MM_index
<
MM_offset
+
MM_size))
MM_rs.MoveNext
MM_index
=
MM_index
+
1Wend
if
we
walked
off
the
end
of
the
recordset,
set
MM_rsCount
and
MM_sizeIf
(MM_rs.EOF)
Then
MM_rsCount
=
MM_index
If
(MM_size
<
0
Or
MM_size
>
MM_rsCount)
ThenMM_size
=
MM_rsCount
End
IfEnd
If
if
we
walked
off
the
end,
set
the
offset
based
on
page
sizeIf
(MM_rs.EOF
And
Not
MM_paramIsDefined)
Then
If
(MM_offset
>
MM_rsCount
-
MM_size
Or
MM_offset
=
-1)
ThenIf
((MM_rsCount
Mod
MM_size)
>
0)
Then
MM_offset
=
MM_rsCount
-
(MM_rsCount
Mod
MM_size)Else
MM_offset
=
MM_rsCount
-
MM_sizeEnd
If
End
IfEnd
If
reset
the
cursor
to
the
beginningIf
(MM_rs.CursorType
>
0)
Then
MM_rs.MoveFirstElse
MM_rs.RequeryEnd
If
move
the
cursor
to
the
selected
recordMM_index
=
0While
(Not
MM_rs.EOF
And
MM_index
<
MM_offset)
MM_rs.MoveNext
MM_index
=
MM_index
+
1Wend
End
If
%>
<%
"
***
Move
To
Record:
update
recordset
stats
set
the
first
and
last
displayed
record
Recordset1_first
=
MM_offset
+
1
Recordset1_last
=
MM_offset
+
MM_size
If
(MM_rsCount
<>
-1)
ThenIf
(Recordset1_first
>
MM_rsCount)
Then
Recordset1_first
=
MM_rsCountEnd
IfIf
(Recordset1_last
>
MM_rsCount)
Then
Recordset1_last
=
MM_rsCountEnd
If
End
If
set
the
boolean
used
by
hide
region
to
check
if
we
are
on
the
last
record
MM_atTotal
=
(MM_rsCount
<>
-1
And
MM_offset
+
MM_size
>=
MM_rsCount)
%>
<%
"
***
Go
To
Record
and
Move
To
Record:
create
strings
for
maintaining
URL
and
Form
parameters
Dim
MM_keepNone
Dim
MM_keepURL
Dim
MM_keepForm
Dim
MM_keepBoth
Dim
MM_removeList
Dim
MM_item
Dim
MM_nextItem
create
the
list
of
parameters
which
should
not
be
maintained
MM_removeList
=
"&index="
If
(MM_paramName
<>
"")
ThenMM_removeList
=
MM_removeList
&
"&"
&
MM_paramName
&
"="
End
If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
"
add
the
URL
parameters
to
the
MM_keepURL
string
For
Each
MM_item
In
Request.QueryStringMM_nextItem
=
"&"
&
MM_item
&
"="If
(InStr(1,MM_removeList,MM_nextItem,1)
=
0)
Then
MM_keepURL
=
MM_keepURL
&
MM_nextItem
&
Server.URLencode(Request.QueryString(MM_item))End
If
Next
add
the
Form
variables
to
the
MM_keepForm
string
For
Each
MM_item
In
Request.FormMM_nextItem
=
"&"
&
MM_item
&
"="If
(InStr(1,MM_removeList,MM_nextItem,1)
=
0)
Then
MM_keepForm
=
MM_keepForm
&
MM_nextItem
&
Server.URLencode(Request.Form(MM_item))End
If
Next
?
"
create
the
Form
+
URL
string
and
remove
the
intial
"&"
from
each
of
the
strings
MM_keepBoth
=
MM_keepURL
&
MM_keepForm
If
(MM_keepBoth
<>
"")
Then
MM_keepBoth
=
Right(MM_keepBoth,
Len(MM_keepBoth)
-
1)
End
If
If
(MM_keepURL
<>
"")
ThenMM_keepURL
=
Right(MM_keepURL,
Len(MM_keepURL)
-
1)
End
If
If
(MM_keepForm
<>
"")
ThenMM_keepForm
=
Right(MM_keepForm,
Len(MM_keepForm)
-
1)
End
If
?
"
a
utility
function
used
for
adding
additional
parameters
to
these
strings
Function
MM_joinChar(firstItem)If
(firstItem
<>
"")
Then
MM_joinChar
=
"&"Else
MM_joinChar
=
""End
If
End
Function
%>
<%
"
***
Move
To
Record:
set
the
strings
for
the
first,
last,
next,
and
previous
links
Dim
MM_keepMove
Dim
MM_moveParam
Dim
MM_moveFirst
Dim
MM_moveLast
Dim
MM_moveNext
?
Dim
MM_movePrev
Dim
MM_urlStr
Dim
MM_paramList
Dim
MM_paramIndex
Dim
MM_nextParam
MM_keepMove
=
MM_keepBoth
MM_moveParam
=
"index"
if
the
page
has
a
repeated
region,
remove
"offset"
from
the
maintained
parameters
If
(MM_size
>
1)
ThenMM_moveParam
=
"offset"If
(MM_keepMove
<>
"")
Then
MM_paramList
=
Split(MM_keepMove,
"&")MM_keepMove
=
""
For
MM_paramIndex
=
0
To
UBound(MM_paramList)MM_nextParam
=
Left(MM_paramList(MM_paramIndex),
InStr(MM_paramList(MM_paramIndex),"=")
-
1)If
(StrComp(MM_nextParam,MM_moveParam,1)
<>
0)
Then
MM_keepMove
=
MM_keepMove
&
"&"
&
MM_paramList(MM_paramIndex)End
If
Next
If
(MM_keepMove
<>
"")
ThenMM_keepMove
=
Right(MM_keepMove,
Len(MM_keepMove)
-
1)
End
If
End
If
End
If
set
the
strings
for
the
move
to
links
If
(MM_keepMove
<>
"")
Then
MM_keepMove
=
Server.HTMLEncode(MM_keepMove)
&
"&"
End
If
MM_urlStr
=
Request.ServerVariables("URL")
&
"?"
&
MM_keepMove
&
MM_moveParam
&
"="
?
MM_moveFirst
=
MM_urlStr
&
"0"
MM_moveLast
=
MM_urlStr
&
"-1"
MM_moveNext
=
MM_urlStr
&
CStr(MM_offset
+
MM_size)
If
(MM_offset
-
MM_size
<
0)
ThenMM_movePrev
=
MM_urlStr
&
"0"
Else
MM_movePrev
=
MM_urlStr
&
CStr(MM_offset
-
MM_size)
End
If
%>
<%
"
***
Recordset
Stats:
if
we
don"t
know
the
record
count,
manually
count
them
f
(Recordset1_total
=
-1)
Then
count
the
total
records
by
iterating
through
the
recordsetRecordset1_total=0While
(Not
Recordset1.EOF)Recordset1_total
=
Recordset1_total
+
1
Recordset1.MoveNextWend
reset
the
cursor
to
the
beginningIf
(Recordset1.CursorType
>
0)
Then
Recordset1.MoveFirstElse
Recordset1.RequeryEnd
If
?"
set
the
number
of
rows
displayed
on
this
pageIf
(Recordset1_numRows
<
0
Or
Recordset1_numRows
>
Recordset1_total)
Then
Recordset1_numRows
=
Recordset1_total
End
If
"
set
the
first
and
last
displayed
recordRecordset1_first
=
1Recordset1_last
=
Recordset1_first
+
Recordset1_numRows
-
1f
(Recordset1_first
>
Recordset1_total)
Then
Recordset1_first
=
Recordset1_total
End
IfIf
(Recordset1_last
>
Recordset1_total)
Then
Recordset1_last
=
Recordset1_totalEnd
IfEnd
If
%>
(2).
更新记录部分:(更新记录部分与更新密码相似,所以就略去)
由于留言版ASP代码、产品信息ASP代码与综合信息代码相似,所以就省略没没有写出。
?
?
九、网站界面:
1.
首页界面:2.
综合信息显示表页面:?
3.
更新记录页面:4.删除记录5.
站长登陆页面:6.留言版页面:7.
客户留言页面:8.回复留言页面:十、参考文献:
《java2实用教程》
龚详一
清化大学出版社
《dreamweaver
MX入门与提高》
周家地
清化大学出版社
《jsp实用教程》
张跃平
南开大学出版社
〈网站制作教程〉廖还华
电子工业出版社
?
本文档由论文格式(http://www.csmayi.cn/)用户上传
网站分析报告 本文关键词:分析报告,网站
网站分析报告 来源:网络整理
免责声明:本文仅限学习分享,如产生版权问题,请联系我们及时删除。