Nip 는 어떤 지적 재산권입니까?
& lt! -# includefile = "conn.asp"->
& lt! -# includefile = "connuser.asp"->
& lt! -# includefile = "config.asp"->
& lt! -# includefile = "function.asp"->
& lt! -# includefile = "char.inc"-> & lt! Doctype html public "-//W3C//dtd html 4.0 transitional//en" >
& lthtml & gt
& lthead & gt
& lttitle & gt<% = jjgn%></title >
& ltmeta ">
& lt 는 "& 데이터베이스 _ 뉴스 _ 테이블& 에서 업데이트 시간 & gt“& amp 현재 ()-30 & 그리고 checkked = 1 주문 clickdesc 를 통해 업데이트 시간 desc "'이번 달 선택.
기타
SqlHotNews= "맨 위" & amptop _ txt& 뉴스 ID 선택, 제목, 사진 뉴스 출처. Db _ 뉴스 _ 양식& "where (업데이트 시간 > Now ()-30) 및 checked =1order byclick desc, 업데이트 시간 desc "'이번 달 선택.
만약 ... 끝날거야
RsHotNews. 코네티컷 주 sqlHotNews, 1, 1 을 엽니다
RsHotNews 인 경우. BOF 와 rsHotNews 입니다. 그럼 EOF
응답하다. "& ltdiv & gt" 를 쓰는 것은 아직 없습니다
기타
하지 않고 하다. 파일 끝
%>
& lt div 클래스 = "onecr1_ content" >
& lt% if rshotnews ("pic news") =1then% >
& lt 리 클래스 = "listnewsimg" >
& lt% Else%>
& lt 리 클래스 = "listnews" >
& lt% End if%>
& LTA href="ReadNews.asp? Newsid =<% = rshotnews ("newsid")% > title = "<% = htmlencode4 (rshotnews ("title ") Target = "_ blank" ><% = cutstr (htmlencode4 (rshotnews ("title")), 20)% & gt；; & lt/a & gt；; & lt/ 리>
& lt/div & gt；;
& lt div class = "tableclear" ></div >
& lt%
RsHotNews. 다음 단계
고리
만약 ... 끝날거야
RsHotNews. 닫기
RsHotNews=Nothing 을 설정합니다
%>
& lt/div & gt；;
& lt%
Topfont= 1 이면
%>
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico1""
& lt div 클래스 = "onecl" >
& lt formname = "user" method = "post" action = "< % = BbsPath% & gt/login.asp? Action = chk "onsubmit =" return checkdata (); " & gt
& lt% if usertabletype = "feitium" then' 은%> 와 통합되지 않습니다
& ltdiv & gt 사용자 이름:
& ltdiv & gt 사용자 비밀번호:
& ltdiv & gt & ltinputtype = "submit" name = "submit" value = "landing" > < /div >
& ltahref = "<% = bbspath% > target =" _ blank "> [캐리지 리턴]
& ltahref = "<% = bbspath% & gtreg.asp" target = "_ blank" > [사용자 등록]
& LTA href = "<% = bbspath% & gtlostpass.asp" target = "_ blank" > [비밀을 잊으세요]
& lt% else%>
& lt% if usertabletype = "dvbbs" then% >
& lt% ifrequest.cookies (forcast _ sn) ("username") = "then% >
& ltbr & gt
& ltdiv & gt& ltfont color = red> 기능 포털, 먼저 시스템에 로그인하십시오
& ltbr & gt
& lt% else%>
& lt% loginuser = chkrequest (request.cookies (forcast _ sn) ("사용자 이름"), 0)
RS 10 = 서버를 설정합니다. CreateObject("ADODB. 레코드세트) 를 참조하십시오
Rs 10 입니다. Source = "select * from"& 데이터베이스 사용자 테이블& "위치"& 데이터베이스 사용자 이름 & amp" =' "& 로그인 사용자 및"
Rs 10 입니다. Rs 10 을 엽니다. 출처, ConnUser, 1, 1
Rs 10.eof 가 아니면% >
& lt% IFRS10 (db _ user _ face) < & gt ""그럼%>
& ltimgsrc = "<% = bbspath%><% = RS10 (db _ user _ face)%&GL Border = "0" width = "<% = RS10 (db _ user _ facewidth)% > Height = "<% = RS10 (db _ user _ faceheight)% > & gt
& lt%'' 사용자 아바타를 표시하고' bbs/' 접두어 경로를 추가하여 그래픽 시스템이 포럼을 가리키는 아바타%> 를 직접 표시할 수 있도록 합니다
& lt% else%>
& ltimgsrc = "images/nopic.gif" border = "0" >
& lt% end if%>
& lt%rs 10. 꺼짐
Set RS10 = nothing% >
& ltbr & gt
& ltdiv & gt & ltfontcolor = red> welcome <% = request.cookies (forcast _ sn) ("사용자 이름")% & lt/font & gt；; & lt/div & gt；;
& ltbr & gt
& ltdiv & gt & ltahref = "<% = bbspath% > target =" _ blank "> 포럼 참가
& lt% end if%>
& lt% end if%>
& lt% end if%>
& lt% end if%>
& lt/form & gt；;
& lt/div & gt；;
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico1""
& lt div 클래스 = "onecl" >
& ltscriptsrc = "<% = bbspath% & gtdv _ news.asp? Getname = base "></스크립트 >
& lt/div & gt；;
& lt%
만약 ... 끝날거야
Showspecial= 1 이면
%>
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico3" > 이 사이트의 주제
& lt div 클래스 = "onecl" >
& lt%
Dim rsSpecial, sqlSpecial, TrString
Set rsspecial = server.createobject ("adodb.recordset")' 주제.
SqlSpecial= "맨 위" & amptop _ sp & ampSpecialID, SpecialName FROM 을 선택합니다. 데이터베이스 _ special _ 양식& 전문 DESC 주문
RsSpecial. 코네티컷, 1, 1
특별하지 않다면. 그럼 EOF
특별하지는 않지만. 파일 끝
Trstring = trstring & amp "< div class =' onecr1_ content' > & lt 리. & LTA href='Special_News.asp? Specialid = "& amprsspecial ("specialied ") & & gt "& amptrim (cutstr (htmlencode4 (rsspecial ("specialname ")), 20))& amp；; & lt/a & gt；; & lt/ 리>& lt/div & gt；; ""
RsSpecial. 다음 단계
네.
%>
& lt div 클래스 = "onecr1_ more" >
& ltliclass = "datetime" > & ltahref = "special.asp" > 더 큰 .. & lt/a & gt；; & lt/ 리>
& lt/div & gt；;
& lt%
기타
Trstring = "< div class =" "onecr1_ content" ">; 특별한 화제는 없다
만약 ... 끝날거야
RsSpecial. 닫기
RsSpecial=Nothing 을 설정합니다
응답하다. 문자열을 씁니다
%>
& lt div class = "tableclear" ></div >
& lt/div & gt；;
& lt%
만약 ... 끝날거야
Showdata= 1 이면
%>
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico4" > 이 사이트의 데이터
& lt div 클래스 = "onecl" >
& lt div class = "onecl1_ data" > 오늘의 문장
& lt div class = "onecr1_ data" > & ltli class = "datetime" ><% = todays ()% & lt/ 리>& lt/div & gt；;
& lt div class = "onecl1_ data" > 총 문장 수
& lt div class = "onecr1_ data" > & ltliclass = "datetime" ><% = gettipnum () 입니다 & lt/ 리>& lt/div & gt；;
& lt div class = "onecl1_ data" > 총 구성원 수
& lt div class = "onecr1_ data" > & ltli class = "datetime" ><% = getusernum ( & lt/ 리>& lt/div & gt；;
& lt! -# includefile = lastmember.asp->
& lt%
Showcount= 1 이면
%>
& ltscriptsrc = cnt.asp & gt</script >
& lt! -# includefile = zx.asp->
& lt div class = "onecl1_ data" > 현재 온라인 상태입니다
& lt div class = "onecr1_ data" > & ltli class = "datetime" ><% = I%> &
& lt div class = "tableclear" ></div >
& lt%
만약 ... 끝날거야
%>
& lt/div & gt；;
& lt%
만약 ... 끝날거야
Showuser= 1 이면
%>
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico 5" > 원고 통계
& lt div 클래스 = "onecl" >
& lt! -# includefile = topuser.asp->
& lt! -# includefile = topdep.asp->
& lt/div & gt；;
& lt%
만약 ... 끝날거야
Showuser=0 이면
%>
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico 5" > 10 개 카운티 도시의 보도 자료 수
& lt div 클래스 = "onecl" >
& lt! -# includefile =10xs.asp->
& lt/div & gt；;
& lt%
만약 ... 끝날거야
Showvote=" 1 "인 경우
%>
& lth2class = "lefttitle" > & ltdivclass = "lefttitle-a" > & ltleclass = "ico6" > 이 사이트에서 투표
& lt div 클래스 = "onecl" >
& lt%
Set rsvote = conn.execute ("제목 선택, 선택1,선택 2, 선택 3, 선택 4, 선택 5
RsVote 인 경우. 그럼 EOF
%>
& lt div class = "onecr1_ content" > 아직 투표하지 않았습니다
& lt%
기타
%>
& lt div 클래스 = "onecr1_ content" ><% = rsvote ("title")% > & lt/div & gt；;
& lt formaction = "vote.asp" target = "new window" method = "post" name = "research" >
& lt div 클래스 = "onecr1_ content" >
& lt%
I= 1 ~ 8 의 경우
Rsvote ("select" & I) < & gt ""그럼
%>
& lt 입력 style = "border: 0; 높이: 22px "<% i= 1 인 경우%> 는<% endif% & gtname =" options "type =" 을 선택합니다 % = I% >><% = I%>)<% = rsvote ("선택" & I)% > & ltbr & gt
& lt%
만약 ... 끝날거야
그리고 나서
%>
& lt/div & gt；;
& lt%
만약 ... 끝날거야
%>
& ltdiv & gt
& lt input style = "cursor: hand" type = "submit" value = "vote for it" id = "submit/kloc-0-0
& lt inputonclick = "JavaScript: vote ();" Type="button" value= "결과 보기" id = "button1"name = "button1"styte
& lt/div & gt；;
& lt/form & gt；;
& lt/div & gt；;
& lt%
만약 ... 끝날거야
%>
& lt/div & gt；;
& lt! -뉴스 칼럼 시작->
& lt div 클래스 = "인덱스 라이트1">
& lt%
Dim rsType, sqlType
RsType = Server 를 설정합니다. CreateObject("ADODB. 레코드세트) 를 참조하십시오
SqlType = "SELECT typeID, typeName FROM "& 데이터베이스 유형 테이블&" 여기서 typeview= 1 유형별 정렬 "
RsType. 코네티컷 1, 1 의 sqlType 을 엽니다
블러 유형 id
퍼지 유형 이름
RsType 이 아닙니다. 파일 끝
TypeID = rsType("typeID ")
TypeName = trim(rsType("typeName "))
%>
& lt div 클래스 = "index right2" >
& lth2class = "righttitle2" > & ltdiv & gt< 리>& lt% = 유형명%>& lt/ 리></ & ltA href="Type.asp? Typeid = & lt%=typeid% >& gt 더 큰 .. & lt/A & gt；; & lt/H2 & gt；;
& ltdiv & gt
& lt div 클래스 = "two cl" >
& lt%
Dim rsTypeNewsPic, sqlTypeNewsPic
RsTypeNewsPic=Server 를 설정합니다. CreateObject("ADODB. 레코드세트) 를 참조하십시오
SqlTypeNewsPic = "맨 위" & ampL _ BG& 뉴스 id, 제목, 그림 이름 선택 출처. Db _ 뉴스 _ 테이블 & amp" WHERE(typeid = "& amp；; Typeid & amp "및 checked = 1 및 picnews= 1 및 picname 이 비어 있지 않음) 뉴스 id DESC 별로 정렬"
RsTypeNewsPic. 코네티컷, 1, 1
RsTypeNewsPic 인 경우. 그럼 EOF
응답하다. "< div class =" "photolist1"">" 를 씁니다. & ltimgsrc = ""images/notopic.gif ""width = ""56 ""height = ""56 "">; & lt/div >；; "
기타
RsTypeNewsPic 이 아닙니다. 파일 끝
Title=rsTypeNewsPic("title ")
Fileext = lcase (getfileextname (rstypenewspic ("picname"))
사례 선택 (파일 확장자)
대소문자' jpg',' BMP',' png',' gif' 입니다
%>
& LTA target = "_ blank" href = "readnews.asp? Newsid =<% = rstypenewspic ("newsid")% > Title = "<% = html encode4 (title)% > & gt
& lt div class = "photolist1"> & ltimgsrc = "<% = file upload path & amprstypenewspic ( & lt/div & gt；;
& lt/a & gt；;
& lt%
사례 "국부 펀드"
%>
& lt div 클래스 = "photolist1">
& lt objectclassid = "clsid: d27cdb6e-ae6d-11cf-96b8-444553540000" 입니다 ">
& lt paramname = "quality" value = "high" >
& lt paramname = "play" value = "-1">
& ltparamname = "loop" value = "0">
& lt paramname = "menu" value = "-1">
& lt 포함 src = "<% = file uploadpath & amprstypenewspic ("picname ")% > width =" 56 "height =" 입니다 Typeid & amp 와 checked = 1) 는 이스토프 주문, 뉴서독 ORDER 가 주문한다
RsTypeNews. 코네티컷 주 sqlTypeNews, 1, 1 을 엽니다
RsTypeNews 가 아닙니다. 파일 끝
Newsid = rsTypeNews("NewsID ") 입니다
Newstitle = rstypenews ("제목")
Newstitlecolor = rstypenews ("titlecolor")
Newsurl = "ReadNews.asp? NewsID = "& 뉴스 id
Newswwurl = rstypenews ("titleface")
Newsispic = rsTypeNews("picnews ")
Newsupdatetime = rstypenews ("업데이트 시간")
연도 = 1 이 표시되면
Datetime = year (newsupdatetime) "."& 오른쪽 ("0"& 월 (뉴스 업데이트 시간), 2) 및; "."& 오른쪽 ("0"& 일 (뉴스 업데이트 시간), 2)
기타
Datetime = Right(" 0 "& amp；; 월 (뉴스 업데이트 시간), 2) 및 "."& 오른쪽 ("0"& 일 (뉴스 업데이트 시간), 2)
만약 ... 끝날거야
프로그램이 작은 클래스 이름을 추가하기 시작합니다.
If rstypenews ("big classid") < & gt ""그럼
B = rsTypeNews("bigclassID ")
Rs22 = 서버를 설정합니다. CreateObject("Adodb. 레코드세트) 를 참조하십시오
Sql = "SELECT bigclassID, bigclassname FROM "& 데이터베이스 _ large _ table _ table & amp" 여기서 bigclassID = "& ampB
Set rs22=Conn.Execute(sql)
A = rs22 ("큰 클래스 이름")
Rs22. 닫기
Rs22 = 없음 설정
기타
A= "이 열"
만약 ... 끝날거야
소규모 클래스 이름 추가 프로그램이 종료되었습니다.
%>
& lt div 클래스 = "two Cr" >
& lt%
If (newsispic = 1) 인 경우
%>& lt 리클래스 = "listnewsimg" ><%
기타
%>& lt 리클래스 = "listnews" ><%
만약 ... 끝날거야
%>
[< % = A% & gt]& lt；; Ahref = "<% ifnewswwurl =" none "then%><% = newsurl%><% else%> & Lt% = 뉴스 제목% > target = "_ blank" >< fontcolor = "<% = int title len)% & gt；<% = & lt/font & gt；; & lt/a & gt；;
& lt! -제목 뒤의 의견->
& lt%
If rstypenews ("titlesize") > =1then% > & ltaclass = "dotted4" href = "review.asp? Newsid =<% = newsid% > target = "_ blank" > & ltfontcolor = "red" > [관점] < /font > & lt/A & gt；; & lt% End if%>
& lt! -제목 뒤의 의견->
& lt%
RsTypeNews("istop")=" 1 "인 경우%>& ltfont color = red>[ 솔리드] [새로 만들기] &
& lt%
RsTypeNews. 다음 단계
네.
RsTypeNews. 닫기
RsTypeNews=Nothing 을 설정합니다
%>
& lt/div & gt；; & lt div class = "tableclear" ></div >
& lt/div & gt；;
& lt%
RsType. 다음 단계
네.
RsType. 닫기
RsType = 없음 설정
%>
& lt/div & gt；;
& lt! -뉴스 칼럼의 끝->
& lt! -office 시작 버튼->
& lth2class = "righttitle" > & ltdivclass = "righttitle-a" >< 리> 사무실 버튼
& lt div 클래스 = "index right" >
& lt%
Rs 15 = 서버를 설정합니다. CreateObject("ADODB. 레코드세트) 를 참조하십시오
Rs 15 입니다. Source="SELECT officename, officepic, office URL from "& db _ office _ table & amp" ID DESC 별 정렬 "
Rs 15 입니다. Rs 15 를 엽니다. 코네티컷, 1, 1
Rs 15 가 아닌 경우. 그럼 EOF
Rs 15 가 아닙니다. 파일 끝
%>
& lt div 클래스 = "officecr" > & ltahref = "<% = RS15 ("office URL ")% >&GL & ltbr & gt<% = RS15 ("officename")% > & lt/div & gt；;
& lt%
Rs 15 입니다. 다음 단계
네.
기타
응답하다. 쓰기 "& lttd & gt 에 사용 가능한 정보가 없습니다
만약 ... 끝날거야
Rs 15. 닫기
Rs/kloc 설정-0/5 = 없음
%>< div class = "tableclear" ></div >
& lt/div & gt；;
& lt! -사무실 종료 버튼->
& lt! -검색->
& lth2class = "righttitle" > & ltdivclass = "righttitle-a" >< 리> 사이트 내 검색
& lt div 클래스 = "index right" >
& lt! -div id = "topsearch"->; & lt! -레벨 3 프레임->
& lt formmethod = "post" name = "myform" action = "result.asp" target = "new window" >
& ltdiv & gt& ltb> 사이트 내 검색:
& lt% showsearch= 1 인 경우
검색 = "1"인 경우%>
& lt! -# includefile = search.asp->
& lt% Else%>
& lt! -# include file = search1.ASP->
& lt%End If
끝 If%>
& lt/div & gt；;
& lt/form & gt；;
& lt/div & gt；;
& lt! -검색->
& lt! -페이지 텍스트 끝->
& lt! -수동 링크 시작->
& lttd height = "41"background = "image/g03 _ back.gif" valign = "middle" &
& ltdiv align="center ">
& lttableborder = "0" cellpadding = "0" cellspacing = "0" width = "980" height = "43" >
& lttr & gt
& lttdwidth = "168" align = "center" height = "43" > & ltahref = "/"title = & ltimgborder = "0" src = "images/link01.gif" width = "157" hees & lt/TD & gt；;
& lttdwidth = "158" align = "center" height = "43" > & ltahref = "/"title = & ltimgborder = "0" src = "images/link02.gif" width = "157" height = "37" 입니다 & lt/TD & gt；;
& lttdwidth = "163" align = "center" height = "43" > & ltahref = "/"title = & ltimgborder = "0" src = "images/link03.gif" width = "158" height = "37" 입니다 & lt/TD & gt；;
& lttdwidth = "163" align = "center" height = "43" > & ltahref = "/"title = Ltimgborder = "0" src = "images/link04.gif" width = "157" height = "37" > & lt/TD & gt；;
& lttdwidth = "162" align = "center" height = "43" > & ltahref = "/"title = Ltimgborder = "0" src = "images/link05.gif" width = "157" height = "37" > & lt/TD & gt；;
& lttdwidth = "166" align = "center" height = "43" > & ltahref = "/"title = Ltimgborder = "0" src = "images/link06.gif" width = "157" height = "37" > & lt/TD & gt；;
& lt/tr & gt；;
& lt/table & gt；;
& lt/div & gt；;
& lt/TD & gt；;
& lt/tr & gt；;
& lt! -수동 링크 종료->
& lt%
기타
응답하다. 쓰기 "& ltdiv class =" "indexmain" "> 현재 장 범주가 없습니다
만약 ... 끝날거야
%>
& lt/div & gt；;
& lt! -페이지 끝에서 시작->
& lt! -# includefile = bottom.asp->
& lt 스크립트 & gt
Var Rimifon = {
[광고]: 새로운 대상,
NewFloatAd: 함수 (imgUrl, strLink)
{
Var ad = document.createelement ("a");
광고. DirV = true
광고. DirH = true
광고. AutoMove = true
광고. 이미지 = 새 이미지;
광고. Seed = math.random ();
광고. Timer = setInterval("Rimifon. Float("+ad. 시드+"), 50);
이것. 광고 [광고. Seed]= ad；;
광고. Image. Parent = ad
Ad.style.position = "absolute";
Ad.style.left = 0;
Ad.style.top = 0;
광고. Image.src = imgUrl
광고. Image.onmouseover = function () {this. Parent. AutoMove = false}
광고. Image.onmouseout = function () {this. Parent. AutoMove = true}
If (스트링크)
{
Ad.href = strLink
광고. Image.border = 0;
Ad.target = "_ blank
}
Ad.appendChild(ad). 그림);
Document.body.appendchild (ad);
광고로 돌아가기
},
Float: 함수 (floatId)
{
Var ad = this 입니다. 광고 [floatid];
만약. 자동 이동)
{
Var cur left = parseint (ad.style.left);
Var curtop = parseint (ad.style.top);
If (ad.offsetwidth+curleft > Document.body.clientwidth+document.body.scrollleft-1)
{
Cur left = document.body.scrollleft+document.body.client width-ad.offsetwidth;
광고. DirH = false
}
If (ad.offsetheight+curtop > Document.body.clientheight+document.body.scrolltop-1)
{
Curtop = document.body.scrolltop+document.body.clientheight-ad.offsetheight;
광고. DirV = false
}
If(cur left & lt；; Document.body.scrollLeft) 를 참조하십시오
{
Cur left = document.body.scrollleft;
광고. DirH = true
}
If(curTop & lt；; Document.body.scrollTop) 을 참조하십시오
{
Curtop = document.body.scrolltop;
광고. DirV = true
}
Ad.style.left = curleft+"px";
Ad.style.top = curTop+(ad. DirV? 1:-1)+"px";
}
}
}
& lt/스크립트 > & ltbody & gt& ltdiv style= "너비: 30cm 높이: 40cm" > & lt/div & gt；; & lt/body & gt；;
& lt 스크립트 & gt
레미풍. New float d("/dui 0 1. png ","/tz/gz/201203/t20/kloc-0
Var ad = Rimifon 입니다. New float d("/dui 02. png ","/ReadNews.asp? Newsid = 374 ");
Ad.style.left = document.body.clientwidth-100;
Ad.style.top = 456;
광고. Image.width =100;
광고. Image.height = 360
& lt/스크립트 >
& lt! -이 페이지의 끝->
& lt/body & gt；;
& lt/html & gt；;
& lt%
통제실을 닫다
연결 설정 = 없음
%>