校园二手网功能实现及关键技能点Word文件下载.docx
《校园二手网功能实现及关键技能点Word文件下载.docx》由会员分享，可在线阅读，更多相关《校园二手网功能实现及关键技能点Word文件下载.docx（24页珍藏版）》请在冰点文库上搜索。
"
）
Response.End（）
ENDIF
Typ=Encodestr（Request.Form（"
Typ"
Strsql="
SELECTID,LoginNum,PassWord,LastLogin,TypFROM[Admin]WHEREAdminName='
&
AdminName&
andPassWord='
PassWord&
SETRs=Server.CreateObject（"
Adodb.Recordset"
Rs.OpenStrsql,conn,1,3
IFNOTRs.EOFANDNOTRs.BOFTHEN
IFRs（"
）=PassWordTHEN
Rs（"
LastLogin"
）=Now（）
LoginNum"
）=Rs（"
）+1
session（"
AdminTyp"
）
Rs.Update
Rs.Close
SETRs=Nothing
conn.Close
SETconn=Nothing
IFTyp="
1"
THEN
Response.Redirect"
frame.asp"
ELSE
../index.asp"
ENDIF
rs.close
setrs=Nothing
conn.close
用户名或密码有误！
None"
response.end
ELSE
Rs.close
SETRs=Nothing
conn.close
SETconn=Nothing
CallMsgBox（"
Response.End
%>
验证码代码如下:
OptionExplicit
Response.buffer=true
NumCode
FunctionNumCode（）
Response.Expires=-1
Response.AddHeader"
Pragma"
no-cache"
cache-ctrol"
OnErrorResumeNext
DimzNum,i,j
DimAdos,Ados1
Randomizetimer
zNum=cint（8999*Rnd+1000）
Session（"
）=zNum
Dimzimg（4）,NStr
NStr=cstr（zNum）
Fori=0To3
zimg（i）=cint（mid（NStr,i+1,1））
Next
DimPos
SetAdos=Server.CreateObject（"
Adodb.Stream"
Ados.Mode=3
Ados.Type=1
Ados.Open
SetAdos1=Server.CreateObject（"
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile（Server.mappath（"
body.Fix"
Ados1.writeAdos.read（1280）
Ados.Position=（9-zimg（i））*320
Ados1.Position=i*320
Ados1.writeados.read（320）
Next
head.fix"
Pos=lenb（Ados.read（））
Ados.Position=Pos
Fori=0To9Step1
Forj=0To3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.writeados1.read（30）
Next
Response.ContentType="
image/BMP"
Ados.Position=0
Response.BinaryWriteAdos.read（）
Ados.Close:
setAdos=nothing
Ados1.Close:
setAdos1=nothing
IfErrThenSession（"
）=9999
EndFunction
AspcodeCreatedbyBlueIdea.COMWebTeamV372003-7-25
4.3“参数管理”功能设计
可以修改网站参数。
如图4-3所示：
图4-3参数管理界面
（Graph4-3ManagementParametersPage）
代码如下：
sql="
select*fromconst"
setrs=Server.CreateObject（"
ADODB.Recordset"
rs.opensql,conn,1,3
action=request（"
action"
ifaction="
save"
then
homepage=request.form（"
homepage"
url=request.form（"
url"
email=request.form（"
email"
qq=request.form（"
qq"
gg=request.form（"
gg"
ver=request.form（"
ver"
xieyi=request.form（"
xieyi"
ifrs.eoforrs.bofthen
rs.addnew
endif
rs（"
）=homepage
）=url
）=email
）=qq
）=gg
）=ver
）=xieyi
rs.update
<
SCRIPTlanguage=JavaScript>
functionis_number（str）
{
exp=/[^0-9（）-]/g;
if（str.search（exp）!
=-1）
{
returnfalse;
}
returntrue;
}
functionis_email（str）
{if（（str.indexOf（"
@"
）==-1）||（str.indexOf（"
."
）==-1））{
returnfalse;
functionCheckInput（）{
if（form.homepage.value=='
）{
alert（"
网站名称不能为空！
）;
form.homepage.focus（）;
if（form.url.value=='
网址不能为空！
form.url.focus（）;
if（form.email.value=="
）{
alert（"
E-mail不能为空!
form.email.focus（）;
if（!
is_email（form.email.value））
{alert（"
非法的EMail地址！
if（form.qq.value=="
QQ不能为空!
form.qq.focus（）;
is_number（document.form.qq.value））{
QQ号必须是数字！
if（form.ver.value=='
版本不能为空！
form.ver.focus（）;
if（form.xieyi.value=='
注册协议不能为空！
form.xieyi.focus（）;
/SCRIPT>
4.4“密码管理”功能设计
用户可以修改用户密码。
如如图4-4：
图4-4密码的修改
（Graph4-4MendCodePage）
实现功能的关键代码为：
EmptyThen
DimStrSql,Rs,PassWord1,PassWord2
PassWord1=Encodestr（Request.Form（"
PassWord1"
PassWord2=Encodestr（Request.Form（"
PassWord2"
IFPassWord1<
EmptyAndPassWord2<
SetRs=Server.CreateObject（"
adodb.recordset"
StrSql="
Select*From[Admin]whereID=1"
Rs.openStrSql,Conn,1,3
PassWord2Then
SetRs=Nothing
CallMsgBox（"
两次输入的密码不一致"
Response.End（）
Else
）=MD5（PassWord1,32）
Rs.UpDate
Rs.Close
修改成功"
GoUrl"
PwsEdit.asp"
Response.End（）
EndIF
请输入新密码"
EndIF
4.5“公告管理”功能设计
若用户输入了一条公告信息，可使用删除功能将该条记录删除和用修改功能修改此记录。
如如图4-5所示：
图4-5公告记录
（Graph4-5ProclamationRecordsPage）
setrs=server.createobject（"
select*fromgonggaoorderbyiddesc"
IFnotrs.eofandnotrs.bofthen
dimpage_size
dimpage_no
dimpage_total
page_size=15
ifrequest.QueryString（"
page_no"
）="
page_no=1
else
page_no=cint（request.QueryString（"
endif
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dimI,J
I=0
J=page_size
dowhilenotrs.eofandJ>
J=J-1
I=I+1
%>
tdbgcolor="
#FFFFFF"
align="
center"
ahref="
annouce_edit.asp?
id=<
%=rs（"
id"
）%>
修改<
/a>
/td>
ahref="
annouce_del.asp?
删除<
4.6会员管理功能设计
当用户查看、修改、添加会员信息。
如图4-6：
tralign="
user_id"
ahref=../userinfo.asp?
user_id=<
target=_blank>
user_name"
user_realname"
user_email"
user_qq"
user_edit.asp?
user_del.asp?
/tr>
4.7新手上路功能设计
用户可以修改、添加上路说明信息信息。
如图4-7：
图4-7新手上路图
（Graph4-7NewuserInstructPage）
select*fromxinshou"
first1=request.form（"
first1"
first2=request.form（"
first2"
first3=request.form（"
first3"
first4=request.form（"
first4"
first5=request.form（"
first5"
first6=request.form（"
first6"
first7=request.form（"
first7"
first8=request.form（"
first8"
）=first1
）=first2
）=first3
）=first4
）=first5
）=first6
）=first7
）=first8
4.8黄页管理功能设计
用户可以、修改、添加黄页信息。
如图4-8：
图4-8黄页管理图
（Graph4-8YellowPagesManagementPage）
4.9二手信息管理功能设计
用户可以修改、添加二手信息和分类情况。
如图4-9：
图4-9二手信息管理图
（Graph4-9TenderinfoManagementPage）
4.10添加功能
流程图如下：
是
否
是
图4-10添加功能流程图
（Graph4-10AddFunctionFlowChart）
4.11修改功能
有
成功
图4-11修改功能流程图
（Graph4-11AmendFunctionFlowChart）
升级会员 