相关代码 |
|
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
- 网站后台管理系统
//检验表单的合法性
function CheckForm() {
if (document.AddForm.NewsClass.value == "#") {
alert("\必须选择新闻类型！");
document.AddForm.NewsClass.focus();
}
else if (document.AddForm.Topic.value == "") {
alert("\新闻标题不能为空！");
document.AddForm.Topic.focus();
}
else if (document.AddForm.Content.value == "") {
alert("\新闻内容不能为空");
document.AddForm.Content.focus();
}
else {
return true;
}
return false;
}
// End of validation form script -->
function AddPhoto() {
popupWin = window.open('Oper.asp?Oper=AddPhoto','','width=300,height=160,scrollbars=no')
}
当前位置：管理首页 -> 新闻管理 -> 添加新闻
if Session("intUserLevel") > 2 then
Response.Write " "
end if
%>
if UCase(Request.Form("Oper")) = "ADDNEWS" then
Dim rdsNews
set rdsNews = Server.CreateObject("ADODB.Recordset")
rdsNews.Open "Dat_News",Conn,3,3
rdsNews.AddNew
rdsNews("NewsClass") = Request.Form("NewsClass")
rdsNews("Topic") = Request.Form("Topic")
rdsNews("From") = Request.Form("From")
rdsNews("Content") = Request.Form("Content")
rdsNews("PhotoName") = Request.Form("PhotoName")
rdsNews("Hits") = 0
rdsNews("State") = 1
rdsNews("CreateTime") = now()
rdsNews.Update
rdsNews.Close
set rdsNews = nothing
strMsgTitle = "新闻添加"
strError = False
strMsg = "新闻添加成功..."
strGoFile = "AddNews.asp"
Call ShowMessage()
else
%>
新闻类别：
－选择－
本站公告
行业新闻
标题：
**
摘自：
内容：
**
相关图片：
添加 （只允许上传.gif、.jpg格式）
end if
%>
相关资源 |
|