If PicName <> "" Then
TempContent=TempContent&" <td height=20 valign=top><div align='center'>"
TempContent=TempContent&"
<ahref='"&RootUrl&"/News/picShow.asp?id="&fRs("D_ID")&"' target='_blank'><imgsrc='"&RootUrl&"/News/UploadFile/"&Trim(fPicName)&"' width='"&T_PicW&"'height='"&T_PicH&"' border='0'><br>"&left(Trim(fTitle),T_Word)&"</a>"
TempContent=TempContent&" </div></td>"
Loopno = Loopno-1
End If
fRs.MoveNext
Loop
注意将记录集对象在内存中清空：
fRs.Close
Set fRs = Nothing
JSNews.asp文件功能与设计与PicNews.asp文件基本相同，在此就不再列出,这两个文件中都引用了DBClass.inc.asp文件，在DBClass.inc.asp文件中定义了很多的函数与子程序，包括:
⑴数据库相关函数：
①初始化数据库连接对象函数DBConnBegin()，功能：初始化数据库连接对象。
②释放数据库连接对象函数DBConnEnd()，功能：释放数据库连接对象。
⑵常用函数：
①错误返回处理函数GoErroe(str)，功能：对出现错误进行下一步处理。
②操作判断函数Confirm(strAlert,url1,url2)，功能：进行操作判断，是否进一步操作,strAlert 提示语言 url1 确认返回的地址 url2 取消返回的地址。
③操作判断函数OKToWhere(strAlert,Num)，功能：进行操作判断，是否进一步操作，strAlert 提示语言 Num 确认返回的地址。
④操作提示函数AlertMsg(str)，功能：操作提示信息，str 提示的详细内容。
⑤判断函数GetSafeInt(iCheck,iDefault)，功能：判断是否是数字，否则用默认值替换，iCheck 要替换的变量，iDefault 默认值。
⑥GetSafeStr(str)函数，功能：得到安全字符串,在查询中或有必要强行替换的表单中使用，str 要替换的字符串。
⑦outHTML(str)函数，功能：把字符串进行HTML解码，替换server.htmlencode，去除Html格式，用于显示输出。
⑧inHTML(str)函数，功能：去除Html格式，用于从数据库中取出值填入输入框时，注意：value="?"这边一定要用双引号。
⑨Header(str)函数，功能：每页头部内容；Footer()函数，功能：每页底部内容。
⑩InitSelect(s_FieldName, a_Name, a_Value, v_InitValue, s_Sql, s_AllName)函数，功能：初始化下拉框，s_FieldName(返回的下拉框名)，a_Name(定值名数组)，a_Value(定值值数组)，v_InitValue(初始值)，s_Sql(从数据库中取值时select name、value from table)，s_AllName（空值的名称,如"全部"，"所有"，"默认"）。
将所需用到的函数集中写在一个文件里面，需要用到任一函数时只先引用此文件就可直接对函数进行调用，简单集中，方便修改。
4.2 后台栏目信息管理模块
4.2.1 后台界面设计
4.2.2 各页面信息显示与代码设计
⑴管理员登录
Login.asp文件连接数据库判断管理员登录用户名，密码与验证码是否已填或是否正确，并弹出对话框进行提示；判断管理员类型，分类型向登录用户显示页面，以便登录用户进行操作。如登录不成功，刚弹出提示返回前一页面，也可按“返回首页”，返回首页。
⑵管理员操作页面
在Admin.asp文件中调用在Dir.inc.asp文件中定义了菜单，各菜单链接的页面如下：信息管理(NewsList.asp)，栏目管理(NewsCataAdd.asp)，发布信息(NewsAdd.asp)，帐号管理(SysUser.asp)，修改密码(ModifyPasswd.asp)。
管理员可根据自己的需要选择菜单，选择菜单后，相对应的页面会在mainFrame框架中显示，管理员可以进行相应的操作。
如管理员要添加新信息，可选择发布信息菜单，刚在右边出发布信息的操作界面，相对应的NewsAdd.asp代码如下：
①设置了各种函数来判断用户的操作,当上传图片等文件时，往下拉框中填入图片路径，可根据实际需要更改此函数,代码如下:
function doChange(objText, objDrop){
if (!objDrop) return;
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);}
objDrop.selectedIndex = nIndex;}
end if
②表单提交客户端检测，定义函数doSubmit()功能是进行客户端检测，其具体实现方法是用所提交表单中各项的value属性来判断其选择的类别或是否选择了类别，如没有选择则提示要选择类别，如选择的是根目录刚提示“根目录不允许发布信息！”，同样是用value属性来判断信息标题与信息内容是否为空，具体代码如下：
function doSubmit(){
if (document.myform.d_cataid.value==""){
alert("请选择一个信息类别！");
document.myform.d_cataid.focus();
return false;}
if (document.myform.d_cataid.value.length < 5){
alert("根目录不允许发布信息！");
document.myform.d_cataid.focus();
return false;}
if (document.myform.d_title.value==""){
alert("信息标题不能为空！");
document.myform.d_title.focus();
return false;}
③获取表单的内容，并对其数据信息进行处理，添加进数据库。取保存的方件名，如果不要带路径的填充下拉框，可以在下面的表单项加入onchange事件。取保存的文件名（带路径），使用带路径的填充下拉框。
<formaction="NewsAddSave.asp"method="post"name="myform"onSubmit="return doSubmit();">
<input type=hidden name=d_savefilename>
<inputtype=hiddenname=d_savepathfilename onchange="doChange(this,document.myform.d_picture)">
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共10页: 上一页 [1] [2] [3] [4] 5 [6] [7] [8] [9] [10] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：