程序设计(主要源代码)
Default.asp
|
Left.asp
| ||||||||
| ||||||||
|
Conn.asp
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("data/nxnews.mdb")+";DefaultDir=;DRIVER={Micr osoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
%>
Search.asp
<%
key=request("key")
otype=request("otype")
if key="" then
response.write ""
response.end
end if
%>
|
Top.asp
程序名称:新闻发布管理系统
程序作者:zan
联系方式:E-mail:zjp57216875@https://www.wendangku.net/doc/3410965253.html, QQ: 393772664
*************************************************************** >
|
Onews.asp
<%owen=request("id")%>
.content { font-size: 11pt; }
td{word-break:break-all}
var currentpos,timer;
function initialize()
{
timer=setInterval("scrollwindow()",50); }
function sc(){
clearInterval(timer);
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
<%
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
| ||||||||||||
|
Adminlogin.asp
<%
if request("logout")<>"" then
session("admin")=""
session("password")=""
session("aleave")=""
response.redirect "adminlogin.asp"
end if
%>