用文本+ASP打造新闻发布系统几点补充

1。这里略去密码验证
密码保存在一个password_admin.asp的文件里
我的是这样的：
<%response.end%>|mysoso|mysoso
注意要加<%response.end%>作用相信大家都懂
2.要注意"|"编码防子用户输入|导致程序读取出错
3。程序中字符处理函数是刘子良写的在此感谢（我做了一点点修改)
4。关于那个动态数组的问题如果大家有办法请，告诉我谢谢
联系
so8so@21cn.com

时间： 2025-01-30 04:06:06

用文本+ASP打造新闻发布系统几点补充的相关文章

用文本+ASP打造新闻发布系统(二)新闻添加

<html><head> <meta http-equiv="Content-Language" content="zh-cn"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><

用文本+ASP打造新闻发布系统

//图片上传 <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> Function GetUpload(FormData) Dim DataStart,DivStr,DivLen,DataSize,FormFieldData '分隔标志串(+CRLF) DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1) '分隔标志串长度 DivLen = LenB(DivStr) PosOpenBoundary

用文本+ASP打造新闻发布系统(三)新闻列表显示

显示 <% dim myfso,myread set myfso=createobject("scripting.filesystemobject") set myread=myfso.opentextfile(server.mappath("./new_list.asp"),1,0) if myread.atendofstream then Response.Write "目前没有添加新闻" Res

用文本+ASP打造新闻发布系统(五)新闻修改

'#######news_update.asp <SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript> <!-- function client_onblur(ii) { server=eval("form1.server"+ii) if(server.value==""){

用文本+ASP打造新闻发布系统(四)新闻删除/新闻删除

<% dim id id=Request.QueryString ("id") dim myfso set myfso=createobject("scripting.filesystemobject") if myfso.FileExists(server.mappath("./news_content/&

用文本+ASP打造新闻发布系统(四)新闻删除

<% dim idid=Request.QueryString ("id")dim myfsoset myfso=createobject("scripting.filesystemobject") if myfso.FileExists(server.mappath("./news_content/"&id&&q

用文本+ASP打造新闻发布系统。几点补充

1.这里略去密码验证密码保存在一个password_admin.asp的文件里我的是这样的:<%response.end%>|mysoso|mysoso注意要加<%response.end%>作用相信大家都懂2.要注意"|"编码防子用户输入|导致程序读取出错3.程序中字符处理函数是刘子良写的在此感谢(我做了一点点修改)4.关于那个动态数组的问题如果大家有办法请,告诉我谢谢联系so8so@21cn.com

用文本+ASP打造新闻发布系统/图片上传（不是我写的）upload.inc

上传 <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> Function GetUpload(FormData) Dim DataStart,DivStr,DivLen,DataSize,FormFieldData '分隔标志串(+CRLF) DivStr = LeftB(FormData,InStrB(FormData,str2bin(VbCrLf)) + 1) '分隔标志串长度 DivLen = LenB(DivStr)