企业网站后台实验报告无主页Word格式文档下载.docx
- 文档编号:16664878
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:28
- 大小:41.74KB
企业网站后台实验报告无主页Word格式文档下载.docx
《企业网站后台实验报告无主页Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《企业网站后台实验报告无主页Word格式文档下载.docx(28页珍藏版)》请在冰豆网上搜索。
subCloseConn()
conn.close
setconn=nothing
endsub
%>
(二)后台登录设计
后台管理员输入用户名、密码和附加码,点击“确定”按钮,系统先判断输入的附加码是否正确,如果错误将直接报错并返回登录页面,如果附加码输入正确,则将后台管理员提交的数据与数据库内管理员信息进行对比,如果正确,登录成功,进入后台管理。
Login.asp
<
center>
tablewidth="
264"
border="
0"
align="
center"
cellpadding="
3"
cellspacing="
1"
bgcolor="
#ECF5FF"
>
formaction="
Admin_ChkLogin.asp"
method="
post"
trbgcolor="
#f7f7f7"
>
tdcolspan="
2"
divalign="
strong>
后台登陆<
/strong>
/div>
/td>
/tr>
#FFFFFF"
tdwidth="
70"
用户名称:
192"
inputname="
UserName"
type="
text"
maxlength="
20"
tdbgcolor="
用户密码:
td>
Password"
password"
tdheight="
40"
colspan="
inputtype="
submit"
value="
确&
nbsp;
认"
reset"
清&
除"
/form>
/table>
/center>
(三)管理员设置
增加管理员账号时,首先判断各项是否为空,如果都填写了,直接点击确认添加就可以了,。
如果是正确的,再判断输入的新管理密码和确认新密码中的值是否相等,用以防止管理员在修改密码时输错,导致无法进入后台。
全部判断为正确后就提交数据库进行修改。
(1)实现文件:
Free_aboutus.asp
(2)实现功能代码如下:
%@language="
VBScript"
--#includefile="
admin.asp"
-->
conn.asp"
%job=server.htmlencode(Trim(Request("
content"
)))%>
%ifRequest.QueryString("
no"
)="
eshop"
then
setrs=server.createobject("
adodb.recordset"
sql="
select*fromFree_main"
rs.opensql,conn,3,3
rs("
Job"
)=Job
rs.update
rs.close
response.redirect"
Free_aboutus.asp"
Setrs_home=Server.CreateObject("
ADODB.Recordset"
rs_home.opensql,conn,1,1
--#includefile="
../Inc/Head.asp"
-->
linkhref="
Inc/Tzstudent_Com.css"
rel="
stylesheet"
text/css"
styletype="
--
.a2{BACKGROUND-COLOR:
A4B6D7;
}
/style>
100%"
height="
tr>
tdalign="
valign="
top"
550"
25"
关于我们<
formmethod="
POST"
action="
Free_aboutus.asp?
no=eshop"
class="
a2"
--DWLayoutTable-->
104"
36"
middle"
p>
支持UBB代码<
/p>
81%"
rowspan="
scriptsrc=../Inc/Eshopcode.js>
/script>
--#includefile=../Inc/Ubb.inc-->
textareaname="
cols="
80"
rows="
15"
%ifrs_home("
html"
)=falsethen
job=replace(rs_home("
job"
),"
br>
chr(13))
job=replace(job,"
"
"
job=rs_home("
response.writejob%>
/textarea>
263"
spanclass="
Table4"
信息内容:
/span>
23"
修改"
name="
cmdok"
重写"
cmdcancel"
../Inc/Foot.asp"
rs.update’更新数据库
(四)基本网站设置
基本网站设置主要是对网站的名称、地址、联系电话、邮箱、QQ版权信息本站说明的设置。
2.实现文件:
Free_Basic.asp
3.实现功能代码如下:
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
%@language=vbscriptcodepage=936%>
Free_Manage.asp"
Inc/popedom.asp"
.style7{color:
#CCCCCC}
.style8{color:
#000000}
.a4{BACKGROUND-COLOR:
ECF5FF;
500"
%ifrequest("
save"
then%>
<
formaction=Free_Basic.aspmethod=post>
%setrs=server.createobject("
sql="
select*fromWebBasicInfowhereW_id=1"
rs.opensql,conn,1,1
%>
网 站 基 本 设 置<
281"
网站名称:
612"
W_Name"
input_text"
id="
size="
%=rs("
)%>
网址(URL):
W_Url"
地址:
W_Where"
电话:
W_Tel"
手机:
W_Phone"
邮编:
W_Zip"
邮箱:
W_Mail"
ICP备案号:
W_ICP"
QQ:
W_QQ"
版权信息:
w_Copyright"
本站说明:
w_Index"
50"
8"
hidden"
name="
yes"
提交"
B1"
<
重置"
B2"
%rs.close%>
%endif%>
DimW_ID,W_Name,W_Url,W_Where,W_Tel,W_Phone,W_Zip,W_Mail,W_ICP,W_QQ
Dimw_Index,w_Copyright
W_ID=Trim(Request.Form("
W_ID"
))
W_Name=Trim(Request.Form("
W_Url=Trim(Request.Form("
W_Where=Trim(Request.Form("
W_Tel=Trim(Request.Form("
W_Phone=Trim(Request.Form("
W_Zip=Trim(Request.Form("
W_Mail=Trim(Request.Form("
W_ICP=Trim(Request.Form("
W_QQ=Trim(Request.Form("
w_Copyright=Trim(Request.Form("
w_Index=Trim(Request.Form("
setrs=server.createobject("
sql="
select*fromWebBasicInfowhereW_id=1"
rs.opensql,conn,1,3
rs.update
rs("
)=W_Name
)=W_Url
)=w_Index
)=w_Copyright
)=W_Where
)=W_Tel
)=W_Phone
)=W_Zip
)=W_Mail
)=W_ICP
)=W_QQ
rs.close
response.write"
script>
alert('
网站信息更改成功!
'
);
location.href='
Free_Basic.asp'
endif%>
(五)添加作品设置
添加作品设置主要是对本公司刚出的新产品可以随时进行添加进去:
Free_ArticleAdd.asp
3.实现功能如下:
../Inc/Function.asp"
dimrs
dimsql
dimcount
sql="
select*fromFree_SmallClassorderbySmallClassIDasc"
rs.opensql,conn,1,1
scriptlanguage="
JavaScript"
varonecount;
subcat=newArray();
count=0
dowhilenotrs.eof
%>
subcat[<
%=count%>
]=newArray("
%=trim(rs("
SmallClassName"
))%>
BigClassName"
count=count+1
rs.movenext
loop
onecount=<
functionchangelocation(locationid)
{
document.myform.SmallClassName.length=1;
varlocationid=locationid;
vari;
for(i=0;
i<
onecount;
i++)
if(subcat[i][1]==locationid)
{
document.myform.SmallClassName.options[document.myform.SmallClassName.length]=newOption(subcat[i][0],subcat[i][2]);
}
}
functionCheckForm()
{
if(editor.EditMode.checked==true)
document.myform.Content.value=editor.HtmlEdit.document.body.innerText;
else
document.myform.Content.value=editor.HtmlEdit.document.body.innerHTML;
if(document.myform.Title.value=="
alert("
作品标题不能为空!
document.myform.Title.focus();
returnfalse;
if(document.myform.Product_Id.value=="
产品编号不能为空!
document.myform.Product_Id.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 企业 网站 后台 实验 报告 主页
![提示](https://static.bdocx.com/images/bang_tan.gif)