ڸµĶȽ϶࣬ҿڱȸ¿ûٴվȥлл

ЩļǶ޸ģļǵĻͲ޸ˣ޸ĵʱע£лл

1.ɾȺǰִ̨
group.aspҳ  Rs1.open sql3,conn,1,3 £101У
if Rs1.eof then
	response.Write("κ!")
else

Ӻ˺Rs1.closeǰ£

end if

126УԺ


2.DIG޸ҳȨ
resubmits.aspҳ
if Rs.eof then			
	Response.End()
end if
82к£
if rs("Src_UserID") <> CookieUserID and UserRoleID<>1 then
	response.Write("<script>alert('ûȨ༭˵ϣ');history.go(-1);</script>")
	Response.End()
end if

3.DIGù
1ReSrc.aspļŵĸĿ¼
2srcshow.aspļ£
221<td align="right">ĺӣ
<%if CookieUserID <> "" then%>
	<img src="images/view.gif" alt="ûظ" width="16" height="16" /> <a href="ReSrc.asp?Src_ID=<%=Rs("Src_ID")%>" title="ûظ"></a>
<%end if%>
272<td align="right">ĺӣ
<%if CookieUserID <> "" then%>
	<img src="images/view.gif" alt="ûظ" width="16" height="16" /> <a href="ReSrc.asp?Src_ID=<%=Src_ID%>&Rev_ID=<%=Rs("Re_ID")%>" title="ûظ"></a>
<%end if%>

4.༭DIGʱϴ
resubmits.aspҳ<TD vAlign=top>ڡݣ棨162ң£
<br>
<%if SiteConfig("UpFileOption")<>empty then%>
<BR><BR>
<span id=UpFile></span><a href="javascript:Wo_Modal.Open('UploadAttachment.asp',500,150);" class="CommonTextButton">ϴ</a>
<%end if%><input name="UpFileID" type="hidden">

5.wodig.aspҳԶTags...߶ȱˣӰ
wolib/cls-class.aspҳ棬ҵ
Response.Write("<td height='120' valign='top'>"&Vbcr)
368ңĳ£
Response.Write("<td valign='top'>"&Vbcr)

6.DIGҳ
wolib/cls-class.aspҳҵ
Sql = Sql & " and InStr(1,LCase(Src_WebName),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_Url),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_Desc),LCase('"& S_Havving &"'),0)<>0"
89Уĳ£
Sql = Sql & " and InStr(1,LCase(Src_title),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_WebName),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_Url),LCase('"& S_Havving &"'),0)<>0 or InStr(1,LCase(Src_Desc),LCase('"& S_Havving &"'),0)<>0"

7.ղ
showpost.aspҳҵ
 &nbsp;<a href="javascript:window.external.AddFavorite(location.href,document.title)"><img title="ӵIEղؼ" src="images/favs.gif" border="0">ӵIEղؼ</a><%if CookieUserName<>empty then%><br>
269Уں滻
&nbsp;<a href="MyFavorites.asp?menu=FavoriteThread&ThreadID=<%=ThreadID%>"><img title="ղؼ" src="images/favorite.gif" border="0">ղؼ</a><br>

8.diggղأmyfavorites.aspҳû޸ĹĻֱӸǵҪӵĶȽ϶ࣩ
1update1.04.aspļļݿһкԺɾ
2srcshow.aspҳ棬ҵ
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
	<td class="postbg1"><img src="Images/2.gif"> <span class="postfonthuo"><%=Src_SeeNum%></span><%=Web_UserCName%>&gt;&gt;</td>
</tr>
</table> 
374ңں滻£
<table width="96%"  border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
     <td class="postbg1"><a href="MyFavorites.asp?menu=FavoriteDig&DigID=<%=Src_ID%>"><img title="¼ղؼ" src="images/favorite.gif" border="0">¼ղؼ</a></td>
</tr>
</table> 
3myfavorites.aspҳ棬ڵ9(ҳǸǵĿֱ)
ForumID=RequestInt("ForumID")
滻£
DigID=RequestInt("DigID")

17к£
TotalFavoriteDig=conn.Execute("Select count(FavoriteID) From [Wo_FavoriteDigs] where OwnerUserName='"&CookieUserName&"'")(0)

60пʼ£
	case "FavoriteDig"
		if TotalFavoriteDig>20 then error("DIGղؼֻ 20 ݣ")
		if Conn.Execute("select Src_ID from [Wo_Source] where Src_ID="&DigID&"").eof then error("ϵͳûIDΪ "&DigID&" £")

		Rs.Open "select * from [Wo_FavoriteDigs] where OwnerUserName='"&CookieUserName&"' and DigSourceID="&DigID&"",Conn,1,3
		if Rs.eof then Rs.addNew
			Rs("OwnerUserName")=CookieUserName
			Rs("DigSourceID")=DigID
		Rs.update
		Rs.close
		succeed "ӳɹ",""
	case "DelFavoriteDigs"
		conn.Execute("delete from [Wo_FavoriteDigs] where OwnerUserName='"&CookieUserName&"' and FavoriteID="&FavoriteID&"")
		succeed "ɾɹ",""

216пʼ£
<br>
<table cellspacing="1" cellpadding="0" width="990" id=CommonListArea align="center">
	<tr id="CommonListTitle3"><td colspan=6>&nbsp;&nbsp;Digղؼ</td></tr>
	<tr align="center" id="CommonListHeader" height="25">
		<td width="40%"></td>
		<td width="10%"></td>
		<td width="10%"></td>
		<td width="10%">鿴</td>
		<td width="10%"></td>
	</tr>
<%
Set Rs=Conn.Execute("select * from [Wo_FavoriteDigs] where OwnerUserName='"&CookieUserName&"' order by FavoriteID desc")
Do While Not Rs.EOF
	Set Rs1=Conn.Execute("select * from [Wo_source] where Src_ID="&Rs("DigSourceID")&"")
	if Rs1.eof then conn.Execute("delete from [Wo_FavoriteDigs] where DigSourceID="&Rs("DigSourceID")&"")
%>
	<tr id="CommonListCell" height="25">
		<td><a href="SrcShow.asp?Src_ID=<%=Rs1("Src_ID")%>" target=_blank><%=Rs1("Src_Title")%></a></td>
		<%set Rs33=Conn.Execute("select UserName from Wo_Users where UserID="&Rs1("Src_UserID")&"")
		if Rs33.eof then 
		Uname=""
		else
		Uname=Rs33("UserName")
		end if
		set rs33=nothing%>
		<td align=center><a href="Profile.asp?UserName=<%=Uname%>" target="_blank"><%=Uname%></a><br><%=FormatDateTime(Rs1("Src_AddDate"),2)%></td>
		<td align=center><%=Rs1("Src_RevertNum")%></td>
		<td align=center><%=Rs1("Src_SeeNum")%></td>
		<td align=center><a onclick="return window.confirm('ȷҪɾ?')" href="?menu=DelFavoriteDigs&FavoriteID=<%=Rs("FavoriteID")%>"><img src=images/delete.gif border=0></a></td>
	</tr>
<%
	Set Rs1 = Nothing
Rs.MoveNext
loop
Set Rs = Nothing
%>
</table>

9.[Seven]ṩҳϴͼƬͲͼƬСʾ޸,ɺ̨
1config.aspļ,%>
Web_DigImgMaxWidth=350
Web_DigImgMaxHeight=1000

2ADMINļadmin_DigConfig.aspļ30УTS1.writeline chr(37)&">"
TS1.writeline "Web_DigImgMaxWidth="&request("Web_DigImgMaxWidth")&""
TS1.writeline "Web_DigImgMaxHeight="&request("Web_DigImgMaxHeight")&""

<tr bgcolor="#FFFFFF">
      <td align="right" height="25">
        DIGͼƬ߶ȣ</td>
      <td>
        <div align="left">&nbsp;<input type="text" name="Web_ContentImgMaxHeight" value="<%=Web_ContentImgMaxHeight%>" size="30">
        <font color="red">Լ</font></div>
      </td>
    </tr>
185ңҵĴ
<tr bgcolor="#FFFFFF">
      <td align="right" height="25">
        DIGϴͼƬȣ</td>
      <td>
        <div align="left">&nbsp;<input type="text" name="Web_DigImgMaxWidth" value="<%=Web_DigImgMaxWidth%>" size="30">
        </div>
      </td>
    </tr><tr bgcolor="#FFFFFF">
      <td align="right" height="25">
        DIGϴͼƬ߶ȣ</td>
      <td>
        <div align="left">&nbsp;<input type="text" name="Web_DigImgMaxHeight" value="<%=Web_DigImgMaxHeight%>" size="30">
        <font color="red">ȸҳߴ߶ȾֵЩԶ</font></div>
      </td>
    </tr>
3photo.aspļŵjsļ
4Setup.aspļ</head>
<script type="text/javascript">
var naxW = "<%=Web_DigImgMaxWidth%>";
var naxH = "<%=Web_DigImgMaxHeight%>";
</script> 
<script type="text/javascript" src="js/photo.js"></script>
5Conn.aspļstr=ReplaceText(str,"\[IMG\]([^"&CHR(34)&"[]*)(\[\/IMG\])","
Ѻ޸Ϊ<img border=0 onload=javascript:DrawImage(this); src=$1>")
6̨ɾonloadjavascript: ڻ


10.[Seven]ṩȺ---빦---ӷ
1޸Ⱥҳgroup.aspļң

ModeratedList=ModeratedList&"<a href=Profile.asp?UserName="&filtrate(j)&">"&filtrate(j)&"</a> "
next
else
ModeratedList=""
end if

320ң "" Ϊ

<a href=javascript:Wo_Modal.Open('MyMessage.asp?menu=Post&RecipientUserName=admin&subject=&gt;&gt;"&Rs1("ForumName")&"&lt;&lt;Ȧ&Body=˵',600,350);>Ȧ</a>

11.ύʱʾ
srcsubmit.aspҳҵ
Rs("src_Desc")	= BodyEncode(Request.Form("Body"))
ڲ31У滻м£
Rs("src_Desc")  = YBBEncode(Request.Form("Body"))

resubmit.aspҳҵ
Rs("src_Desc")	= BodyEncode(Request.Form("Body"))
ڲ31У滻м£
Rs("src_Desc")  = YBBEncode(Request.Form("Body"))

12.[Seven]ṩBUG

cls_class.aspļң

Re_Content = Replace(Re_Content,"""","'")      
Response.Write(left(Re_Content,150))

Լ350ңѵڶе150ΪWeb_RevertTxtNum

һЩ޸ĿԲοhttp://www.wodig.com/beta/ShowPost.asp?ThreadID=289
[Seven]ṩһЩ޸ģͲһһгˣ˿ԸԼ޸ģл
[Seven]ṩ޸

13.̨ǷҪ½ſԶ
1admin/admin-digconfig.aspҳ棬ҵ
TS1.writeline "<"&chr(37)
11
ں滻м£

TS1.writeline "Web_DigLogin="&request("Dig_IsLogin")&""

ҵ<td colspan=2>&nbsp;&nbsp;<strong>Dig  Ϣ  </strong></tr>
44ңں滻м£
<tr bgcolor="#FFFFFF"> 
      <td align="right" height="25" height="25">
        ǷҪ½DIG</td>
      <td>
        <div align="left">&nbsp;<input type="radio" name="Dig_IsLogin" value="1" <% if Web_DigLogin = 1 then Response.write(" Checked") %>> 
				  Ҫ½
			      <input type="radio" name="Dig_IsLogin" value="0" <% if Web_DigLogin = 0 then Response.write(" Checked") %>> 
			      Ҫ½</div>
      </td>
</tr>

2wolib/function.aspҳ棬ҵ
'ǷѶ
213

Public Function Is_Hit(Src_ID,UserID)
ʼ
End Function
ȫ滻Ϊ£
Public Function Is_Hit(Src_ID,UserID)
		Temp_HitStr = ""
		if Web_DigLogin=1 then
		if CookieUserID = "" then
			Temp_HitStr = "<a href='javascript:Hit("&Src_ID&","&UserID&")' onMouseOver='window.status=""½ٶ"";return true;'>һ</a>"
		else
		Set Temp2  = conn.execute("Select Hit_ID,Hit_Time From Wo_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_UserID="&CookieUserID)
        If not Temp2.eof then 
         if DateDiff("d",FormatDateTime(Temp2("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit=false
			else
         	Is_Hit=true
		  end if
          Temp2.close
          set Temp2=nothing
         end if
		 end if
		 else
		 Set Temp2  = conn.execute("Select Hit_ID,Hit_Time From Wo_SrcHit Where Hit_SrcID="&Src_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp2.eof then 
         if DateDiff("d",FormatDateTime(Temp2("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit=false
			else
         	Is_Hit=true
		  end if
          Temp2.close
          set Temp2=nothing
         end if
		 end if

			If Is_Hit=true  then
			Temp_HitStr = "Ѷ"
			else
				Temp_HitStr = "<a href='javascript:Hit("&Src_ID&","&UserID&")' onMouseOver='window.status=""Ҷ"";return true;'>һ</a>"
			end if
		Is_Hit = Temp_HitStr
	End Function

ҵ£
'Ƿ֧֡Ⱥ飩
252ңͬһ滻滻£
Public Function Is_Hit2(Post_ID,UserID)
		Temp_HitStr2 = ""
		if Web_DigLogin=1 then
		if CookieUserID = "" then
			Temp_HitStr2 = "<a href='javascript:Hit2("&Post_ID&","&UserID&")' onMouseOver='window.status=""½֧֣"";return true;'>֧һ</a>"
		else
		Set Temp22  = conn.execute("Select Hit_ID,Hit_time From Wo_GroupHit Where Hit_GroupID="&Post_ID&" and Hit_UserID="&CookieUserID&"")
        If not Temp22.eof then 
			if DateDiff("d",FormatDateTime(Temp22("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit2=false
			else
         	Is_Hit2=true
			end if
          Temp22.close
          set Temp22=nothing
         end if
		 end if
		 else
		 Set Temp22  = conn.execute("Select Hit_ID,Hit_time From Wo_GroupHit Where Hit_GroupID="&Post_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp22.eof then 
			if DateDiff("d",FormatDateTime(Temp22("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit2=false
			else
         	Is_Hit2=true
			end if
          Temp22.close
          set Temp22=nothing
         end if
		 end if

			If Is_Hit2=true  then
			Temp_HitStr2 = "֧"
			else
				Temp_HitStr2 = "<a href='javascript:Hit2("&Post_ID&","&UserID&")' onMouseOver='window.status=""֧£"";return true;'>֧һ</a>"
			end if
		'Is_Hit2 = Temp_HitStr2
		response.Write(Temp_HitStr2)
	End Function

滻󱣴棨ҳû޸ĵĻֱӸǣ

3뽫doajax.aspǣΪ˺ܶ࣬ԾͲһһд


14.DIGG¼ܣĬδˣɸԼҪǷҪܣлл

1admin/admin-left.aspҳ棬ҵ
¹</a></td>
              </tr>
83ңں£
 <tr class="nav" onMouseOver="this.className='nav1'" onMouseOut="this.className='nav'" onClick="showsubmenu(18)">
                <td align="center"><a href="#"><img src="img/left_ico.gif" width="8" height="9" border="0" /></a></td>
                <td><strong></strong></td>
              </tr>
	 <tr> 
          <td id="submenu18" style="display:none" colspan="2"> 
	<table width="98%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
           <tr> 
	  <td width="30%" height="25" align="center"><img src="img/left_ico.gif" width="8" height="9" /></td>
              <td width="70%"><a href="Admin_Manage.asp" target="main"></a></td>
              </tr>
              <tr> 
              <td width="30%" height="25" align="center"><img src="img/left_ico.gif" width="8" height="9" /></td>
              <td width="70%"><a href="Admin_Audit.asp" target="main">δ</a></td>
              </tr></table> </td></tr>

2Admin_Audit.asp  lists_del.aspƵadminļ
3adminļеadmin_manage.aspļҵ£
<%
if Rs("Src_IsOver") = false then
	Response.write("")
else
	Response.write("<font color=#ff0000></font>")
end if
%>
滻£
<%
if Rs("Src_IsOver") = true then
	Response.write("")
else
	Response.write("<font color=#ff0000>δ</font>")
end if
%>

£

sql = "SELECT *,Wo_Users.UserID,Wo_Users.UserName From Wo_Source Inner join Wo_Users on Wo_Source.Src_UserID=Wo_Users.UserID where 1=1 "

136ң滻£

sql = "SELECT *,Wo_Users.UserID,Wo_Users.UserName From Wo_Source Inner join Wo_Users on Wo_Source.Src_UserID=Wo_Users.UserID where Src_IsOver=True"


4wolibļµcls_class.aspļҵWo_Source.Src_IsOver=False=False޸ΪTrue
78

5򿪸Ŀ¼µProfile.asp,ҵSrc_IsOver=0=0޸ΪTrue

6update1.04.2.aspļݿݶѾ˵£кԺɾ

7srcshow.aspҳ棬ҵ£
Call Wodig.MsgBox2("޷ҵԴ",0,"0")
		Response.End()
111ңں滻£
elseif rs("src_isover")=false then
		Call Wodig.MsgBox2("Ҫ˲ʾȹԱ˺ٲ鿴лл",2,"wodig.asp")
		Response.End()

8һ˵ĻͰ²Ĭδ˿

srcsubmit.aspļҵ£
Rs("Src_RevertNum")	= "0"
44ңں滻£

Rs("Src_IsOver")	= True

(9)admin/admin-srcshow.aspadminļļĄ̊́ʱ鿴ݵҳ


15.湦ܿţ桢ͷ漰ݹͶţ

1뽫admin_setup.aspǣadminļ
2srcshow.aspҳ棬ҵ£
<tr>
                    <td align="right">
					<%if CookieUserID <> "" then%>
					<img src="images/view.gif" alt="ûظ" width="16" height="16" />
222ңǰ棩£עǰ棩
<%if GGAD72860 <> "" then%>
				  </table></td></table><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
				  <tr><td width="100%"><%=GGAD72860%></td></tr></table><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1"><tr><td><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
				  <%end if%>

3conn.aspļҵSiteSettingsXML=SiteSettings("SiteSettingsXML")
52ң£
GenericHeader = SiteSettings("GenericHeader")
GenericTop = SiteSettings("GenericTop")
GGAD72860 = SiteSettings("GGAD72860")

4setup.aspļҵ£
if UserRoleID = 1 then response.write " | <a href=admin/login.asp target=_top></a>"
end if
%>
</DIV>
205
£
<DIV id=CommonTopBanner><%=GenericTop%></DIV>

5setup.aspļҵ£
<body>
156
£
<%=GenericHeader%>

16.Ⱥʼ
1뽫Ŀ¼µEditorļиһݵadminļ
2setup.aspļҵ£
Sub SendMail()
596ң滻£
Sub SendMail(MailAddRecipient,MailSubject,MailBody)

17.ãԶǮ;

1뽫admin_setup.aspǣadminļ£ղиǹľͲøˣ

2doajax.aspĸղŸǵľͿˣѾ޸Ĺ

3srcsubmit.aspļҵ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+2,Experience=Experience+2 Where UserID="&CookieUserID)
48ңΪ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digfabiao")&",Experience=Experience+"&SiteConfig("Digfabiao")&" Where UserID="&CookieUserID)

4srcsubmit.aspļҵ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney-2,Experience=Experience-2 Where UserID="&Request("U_id"))
37ңΪ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("DigDel")&",Experience=Experience+"&SiteConfig("DigDel")&" Where UserID="&Request("U_id"))

ҵ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney-1,Experience=Experience-1 Where UserID="&Request("U_id"))
61ңΪ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("DigDelhuifu")&",Experience=Experience+"&SiteConfig("DigDelhuifu")&" Where UserID="&Request("U_id"))

ҵ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+1,Experience=Experience+1 Where UserID="&CookieUserID)
91ңΪ£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Dighuifu")&",Experience=Experience+"&SiteConfig("Dighuifu")&" Where UserID="&CookieUserID)

5addtopic.aspļҵ£
Conn.Execute("update [Wo_Users] set TotalPosts=TotalPosts+1,UserMoney=UserMoney+2,experience=experience+2,UserPostTime="&SqlNowString&" where UserID="&CookieUserID&"")
92ңΪ£
Conn.Execute("update [Wo_Users] set TotalPosts=TotalPosts+1,UserMoney=UserMoney+"&SiteConfig("IntegralAddThread")&",experience=experience+"&SiteConfig("IntegralAddThread")&",UserPostTime="&SqlNowString&" where UserID="&CookieUserID&"")

(6)admin/admin-manage/aspļҵ£
if action = "del" then
84Уں滻£
Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("DigDel")&",Experience=Experience+"&SiteConfig("DigDel")&" Where UserID="&Request("userid"))
Conn.execute("delete from Wo_SrcTags where SrcTag_SrcID="&Src_ID)

ҵ£
location.href="Admin_Manage.asp?Action=del&Src_ID="+id+"&link_type2=<%=link_type2%>";
101ң޸Ϊ£
location.href="Admin_Manage.asp?Action=del&userid="+userid+"&Src_ID="+id+"&link_type2=<%=link_type2%>";

ҵ£
<a href="javascript:isDel(<%=Rs("Src_ID")%>);">ɾ</a>
174ң޸Ϊ£

<a href="javascript:isDel(<%=Rs("Src_ID")%>,<%=Rs("UserID")%>);">ɾ</a>


18.AiṩDIGһBUG

1srcshow.aspļҵ£
<title><%=Rs("Src_Title")%>
136ңRs("Src_Title")޸ΪServer.HTMLEncode(Rs("Src_Title")) 

2admin/admin-manage.aspļҵ£
title="Ԥ"><%=rs("Src_Title")%></a>
161ңRs("Src_Title")޸ΪServer.HTMLEncode(Rs("Src_Title"))

19.AiҵһBUGǹں̨ݿû취ѹģ޸ķ£

ѸĿ¼µCompact.aspļadminļ¾Ϳ

20.ĹܣΪ۳һͶһһֻһΣԭṩBUG㶥ԺˢҳԺͲˡ

1update1.04.3.aspļһкԺɾ

2wolib/function.aspļҵEnd Function滻£

Public Function Is_Hit3(Src_ID,UserID)
		Temp_HitStr3 = ""
		if Web_DigLogin=1 then
		if CookieUserID = "" then
			Temp_HitStr3 = "<a href='javascript:Hit3("&Src_ID&","&UserID&")' onMouseOver='window.status=""½"";return true;'></a>"
		else
		Set Temp23  = conn.execute("Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID&" and Hit_UserID="&CookieUserID)
        If not Temp23.eof then 
         if DateDiff("d",FormatDateTime(Temp23("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit3=false
			else
         	Is_Hit3=true
		  end if
          Temp23.close
          set Temp23=nothing
         end if
		 end if
		 else
		 Set Temp23  = conn.execute("Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp23.eof then 
         if DateDiff("d",FormatDateTime(Temp23("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit3=false
			else
         	Is_Hit3=true
		  end if
          Temp23.close
          set Temp23=nothing
         end if
		 end if

			If Is_Hit3=true  then
			Temp_HitStr3 = ""
			else
				Temp_HitStr3 = "<a href='javascript:Hit3("&Src_ID&","&UserID&")' onMouseOver='window.status="""";return true;'></a>"
			end if
		Is_Hit3 = Temp_HitStr3
	End Function


3js/common.jsļҵ

//¼

ǰ£עǰ棩

function Hit3(srcid,UserID){
	var iddiv_obj=$id("aSrc_ID"+srcid);
	var hitdiv_obj=$id("Src_HitNum"+srcid);
	var RetCode,RetDes;
  var xmldocumento=GetXMLContent("doajax.asp?action=hit2&src_id="+srcid+"&UserID="+UserID);
  RetCode=xmldocumento.selectSingleNode( "//ReturnStr/RetCode/text()").nodeValue;
  RetDes=xmldocumento.selectSingleNode( "//ReturnStr/RetDes/text()").nodeValue;
  switch(RetCode){
  	case "0000" :
  	  hitdiv_obj.innerHTML=(Math.round(hitdiv_obj.innerHTML)-1).toString();
  	  iddiv_obj.innerHTML="";
  	  break;
  	case "0001" :
  	  alert(RetDes);
  	   break;
	case "0002" :
  	  alert(RetDes);
  	   break;
  	case "0003" :
  	  hitdiv_obj.innerHTML=(Math.round(hitdiv_obj.innerHTML)-1).toString();
  	  iddiv_obj.innerHTML="";
  	  alert(RetDes);
  	  break;
  	}
  	window.status=Web_StatusKey;
	}

4ǰаdoajax.aspļǵģһΪѾ޸Ĺ
ҵ  case "grouphit" ǰ棨עǰ棩£

case "hit2"
	dim Src_ID2
	Src_ID2=request("Src_ID")
	UserID=request("UserID")
	if Web_DigLogin=1 then
		if CookieUserID = "" then	'жǷ
			RetCode="0002"
			RetDes="δ½,½лл"
		else
			sql="Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID2&" and Hit_UserID="&CookieUserID
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_SrcHit2(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & src_id2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				RetCode="0000"
				RetDes="ɹ"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					RetCode="0000"
					RetDes="ɹ"
				else
					RetCode="0003"
					RetDes=""
				end if
			end if
		rs.close
		end if
	else
		if CookieUserID = "" then 
		sql="Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID2&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'"
		else
		sql="Select Hit_ID,Hit_Time From Wo_SrcHit2 Where Hit_SrcID="&Src_ID2&" and Hit_UserID="&CookieUserID
		end if
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_SrcHit2(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP)"
				if CookieUserID = "" then
				Sql_Hit = Sql_Hit & "Values(" & src_id2 & ",'0','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				else
				Sql_Hit = Sql_Hit & "Values(" & src_id2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				end if
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				if CookieUserID <> "" then
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				end if
				RetCode="0000"
				RetDes="ɹ"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Source Set Src_HitNum=Src_HitNum-1,Src_HitUpdate='"&Now()&"' Where Src_ID="&src_id2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					if CookieUserID <> "" then
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					end if
					RetCode="0000"
					RetDes="ɹ"
				else
					RetCode="0003"
					RetDes=""
				end if
			end if
		rs.close
	end if

5wolib/cls-class.aspҳ棬ҵ£
Response.Write("| <img src=""Images/Quote.gif"" width=""15"" height=""14"" /> <span class=""green"">Tags</span>"&WoDig.Get_SrcTags(Rs("Src_ID"))&vbcr)
178ңں滻м£

Response.Write("| <img src=""Images/wodig_md.gif"" width=""15"" height=""14"" /><span id=""aSrc_ID"&Rs("Src_ID")&""" align=""center"">"&WoDig.Is_Hit3(Rs("Src_ID"),Rs("UserID"))&"</span>"&vbcr)

6srcshow.aspҳ棬ҵ£

		  <tr>
                    <td height="25" background="Images/digbg2.gif"><div align="center" id="Src_ID<%=Src_ID%>"><%= WoDig.Is_Hit(Src_ID,User("UserID"))%></div></td>
                  </tr>

166ңں滻£

<tr>
                    <td height="3"></td>
                  </tr>
				  <tr>
                    <td height="25" background="Images/digbg2.gif"><div align="center" id="aSrc_ID<%=Src_ID%>"><%= WoDig.Is_Hit3(Src_ID,User("UserID"))%></div></td>
                  </tr>



21. seven  ṩҳͼƬãFLASHͼƬ

1flashplay.asp ,main_bn.swf ,main_bn.xml ,main_bn_two.fla ,main_bn_two.swf ⼸ļĸĿ¼

2js/nip_common.js jsļ

3imagesļµmain_bn01.jpg main_bn02.jpg main_bn03.jpg main_bn04.jpg main_bn05.jpg
main_bn06.jpg main_bn07.jpg main_bn08.jpg main_mini.jpg imagesļ

4admin/admin_left.aspҵ£

<td width="70%"><a href="Admin_Other.asp?menu=EventLog&ErrNum=1" target="main">쳣¼</a></td>
              </tr>
            </table>
		  </td>
        </tr>

250ҿʼں滻£

<tr class="nav" onMouseOver="this.className='nav1'" onMouseOut="this.className='nav'" onClick="showsubmenu(17)">
                <td align="center"><a href="#"><img src="img/left_ico.gif" width="8" height="9" border="0" /></a></td>
                <td><strong></strong></td>
              </tr>
			  <tr> 
          <td id="submenu17" style="display:none" colspan="2"> 
		  	<table width="98%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
              <tr> 
			  <td width="30%" height="25" align="center"><img src="img/left_ico.gif" width="8" height="9" /></td>
              <td width="70%"><a href="admin_flash.asp" target="main">FLASHͼƬ</a></td>
              </tr>			 
            </table>
		  </td>
        </tr>

5admin/admin_flash.aspadminĿ¼

6ô˲ķ:κҳ͵طԵáõķͼ򵥣ֱҳӦλñǩ룺
<!-- #include file="flashplay.asp" -->ͿˣҪעǩĳߴFLASHPLAYĳߴҪһ£ŲӰۡ

7ʱҪעĵطں̨˵


22.ҳУdiggӵĸбҳ

1group_more.asp  dig_more.asp ļĿ¼

2profile.aspҳ棬ҵ£

Response.Write("&nbsp;&nbsp;<img src='Images/frame_0.gif' border=0>&nbsp;<a href='SrcShow.asp?Src_ID="&Rs1("Src_ID")&"'>"&Rs1("Src_Title")&"</a>  | "&Rs1("Src_AddDate")&"<hr style='BORDER-RIGHT: #eeeeee 1px; BORDER-TOP: #eeeeee 1px dashed; MARGIN: 0px 0px 0px; BORDER-LEFT: #eeeeee 1px; BORDER-BOTTOM: #eeeeee 1px' noShade SIZE=1>")
				Rs1.MoveNext
				loop
				end if
				Rs1.close
				%></TD>
			</TR>
183ҿʼں滻£

<tr id=CommonListCell><td align="right"><a href="dig_more.asp?UserName=<%=UserName%>">鿴<%=UserName%>DIG</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>

£

Response.Write("&nbsp;&nbsp;<img src='Images/frame_0.gif' border=0>&nbsp;<a href='ShowPost.asp?ThreadID="&Rs1("ThreadID")&"'>"&Rs1("Topic")&"</a>  | "&Rs1("PostTime")&"<hr style='BORDER-RIGHT: #eeeeee 1px; BORDER-TOP: #eeeeee 1px dashed; MARGIN: 0px 0px 0px; BORDER-LEFT: #eeeeee 1px; BORDER-BOTTOM: #eeeeee 1px' noShade SIZE=1>")
				Rs1.MoveNext
				loop
				end if
				Rs1.close
				%></TD>
			</TR>

204пʼں滻£

<tr id=CommonListCell><td align="right"><a href="group_more.asp?UserName=<%=UserName%>">鿴<%=UserName%>Ⱥ</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>


23.ȺҳгıģӰۣʾַ

1group.aspҳ棬ҵ£

<td width="50%"><%=checkboxHtml%><%=ThreadEmoticonID%><%=CategoryHtml%><a href="ShowPost.asp?ThreadID=<%=Rs("ThreadID")%>"><%=Rs("Topic")%></a><%=ShowPostPage%><%=NewHtml%></td>

115ң޸Ϊ£

<td width="50%"><%=checkboxHtml%><%=ThreadEmoticonID%><%=CategoryHtml%><a href="ShowPost.asp?ThreadID=<%=Rs("ThreadID")%>" title="<%=Rs("Topic")%>"><%=left(Rs("Topic"),25)%></a><%=ShowPostPage%><%=NewHtml%></td>

£

Response.Write "&nbsp; <img src='Images/gonggao.gif'>&nbsp;<a href='ShowPost.asp?ThreadID="&Rs("ThreadID")&"'>"&Rs("Topic")&"</a> ("&FormatDateTime(Rs("PostTime"),2)&")<br>"

157ң޸Ϊ£

Response.Write "&nbsp; <img src='Images/gonggao.gif'>&nbsp;<a href='ShowPost.asp?ThreadID="&Rs("ThreadID")&"' title='"&Rs("Topic")&"'>"&left(Rs("Topic"),25)&"</a> ("&FormatDateTime(Rs("PostTime"),2)&")<br>"

2setup.aspҳ棬ҵ£

<td width="50%"><%=checkboxHtml%><%=ThreadEmoticonID%><%=CategoryHtml%><a href="ShowPost.asp?ThreadID=<%=Rs("ThreadID")%>"><%=Rs("Topic")%></a><%=ShowPostPage%><%=NewHtml%></td>

504ң޸Ϊ£

<td width="50%"><%=checkboxHtml%><%=ThreadEmoticonID%><%=CategoryHtml%><a href="ShowPost.asp?ThreadID=<%=Rs("ThreadID")%>" title="<%=Rs("Topic")%>"><%=left(Rs("Topic"),25)%></a><%=ShowPostPage%><%=NewHtml%></td>


24.Ⱥ

1update1.04.4.aspļһкԺɾ

2ǰаwolib/function.aspļǵģһΪѾ޸Ĺ

wolib/function.aspļҵEnd Function滻£

Public Function Is_Hit4(Post_ID,UserID)
		Temp_HitStr4 = ""
		if Web_DigLogin=1 then
		if CookieUserID = "" then
			Temp_HitStr4 = "<a href='javascript:Hit4("&Post_ID&","&UserID&")' onMouseOver='window.status=""½"";return true;'></a>"
		else
		Set Temp24  = conn.execute("Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&Post_ID&" and Hit_UserID="&CookieUserID)
        If not Temp24.eof then 
         if DateDiff("d",FormatDateTime(Temp24("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit4=false
			else
         	Is_Hit4=true
		  end if
          Temp24.close
          set Temp24=nothing
         end if
		 end if
		 else
		 Set Temp24  = conn.execute("Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&Post_ID&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'")
        If not Temp24.eof then 
         if DateDiff("d",FormatDateTime(Temp24("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
			Is_Hit4=false
			else
         	Is_Hit4=true
		  end if
          Temp24.close
          set Temp24=nothing
         end if
		 end if

			If Is_Hit4=true  then
			Temp_HitStr4 = ""
			else
				Temp_HitStr4 = "<a href='javascript:Hit4("&Post_ID&","&UserID&")' onMouseOver='window.status="""";return true;'></a>"
			end if
		response.Write(Temp_HitStr4)
	End Function

3ǰаjs/common.jsļǵģһΪѾ޸Ĺ

js/common.jsļҵ

//¼

ǰ£עǰ棩

function Hit4(Post_ID,UserID){
	var iddiv_obj=$id("aPost_ID"+Post_ID);
	var hitdiv_obj=$id("Group_HitNum"+Post_ID);
	var RetCode,RetDes;
  var xmldocumento=GetXMLContent("doajax.asp?action=groupHit2&groupid="+Post_ID+"&UserID="+UserID);
  RetCode=xmldocumento.selectSingleNode( "//ReturnStr/RetCode/text()").nodeValue;
  RetDes=xmldocumento.selectSingleNode( "//ReturnStr/RetDes/text()").nodeValue;
  switch(RetCode){
  	case "0000" :
  	  hitdiv_obj.innerHTML=(Math.round(hitdiv_obj.innerHTML)-1).toString();
  	  iddiv_obj.innerHTML="";
  	  break;
  	case "0001" :
  	  alert(RetDes);
  	   break;
	case "0002" :
  	  alert(RetDes);
  	   break;
  	case "0003" :
  	  hitdiv_obj.innerHTML=(Math.round(hitdiv_obj.innerHTML)-1).toString();
  	  iddiv_obj.innerHTML="";
  	  alert(RetDes);
  	  break;
  	}
  	window.status=Web_StatusKey;
	}

4ǰаdoajax.aspļǵģһΪѾ޸Ĺ

ҵ  case "grouphit" ǰ棨עǰ棩£

case "grouphit2"
	dim groupID2
	groupID2=request("groupID")
	UserID=request("UserID")
	if Web_DigLogin=1 then
		if CookieUserID = "" then	'жǷ
			RetCode="0002"
			RetDes="δ½,½лл"
		else
			sql="Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&groupID2&" and Hit_UserID="&CookieUserID
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_GroupHit2(Hit_GroupID,Hit_UserID,Hit_Time,Hit_IP)"
				Sql_Hit = Sql_Hit & "Values(" & groupID2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				RetCode="0000"
				RetDes="ɹ"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_SrcHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					RetCode="0000"
					RetDes="ɹ"
				else
					RetCode="0003"
					RetDes=""
				end if
			end if
		rs.close
		end if
	else
		if CookieUserID = "" then 
		sql="Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&groupID2&" and Hit_IP='"&Request.ServerVariables("REMOTE_ADDR")&"'"
		else
		sql="Select Hit_ID,Hit_Time From Wo_GroupHit2 Where Hit_GroupID="&groupID2&" and Hit_UserID="&CookieUserID
		end if
			rs.open sql,conn,1,1
			if rs.eof then	
				Sql_Hit = "Insert into Wo_GroupHit2(Hit_GroupID,Hit_UserID,Hit_Time,Hit_IP)"
				if CookieUserID = "" then
				Sql_Hit = Sql_Hit & "Values(" & groupID2 & ",'0','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				else
				Sql_Hit = Sql_Hit & "Values(" & groupID2 & ",'" & CookieUserID & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
				end if
				Conn.Execute(Sql_Hit)
				Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
				if CookieUserID <> "" then
				Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
				end if
				RetCode="0000"
				RetDes="ɹ"
			else
				if DateDiff("d",FormatDateTime(Rs("Hit_Time"),2),FormatDateTime(Now,2))>=1 then
					Conn.Execute("Update Wo_GroupHit2 Set Hit_Time='"&Now()&"',Hit_ip='"&Request.ServerVariables("REMOTE_ADDR")&"' Where Hit_ID="&Rs("Hit_ID"))
					Conn.Execute("Update Wo_Threads Set DigCount=DigCount-1 Where ThreadID="&groupID2)
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney-"&SiteConfig("Digjifen")&" Where UserID="&UserID)
					if CookieUserID <> "" then
					Conn.Execute("Update Wo_users Set UserMoney=UserMoney+"&SiteConfig("Digjifen")&" Where UserID="&CookieUserID)
					end if
					RetCode="0000"
					RetDes="ɹ"
				else
					RetCode="0003"
					RetDes=""
				end if
			end if
		rs.close
	end if


5showpost.aspҳ棬ҵ£

		 <tr>
            <td height="25" background="Images/digbg2.gif"><div id="Post_ID<%=ThreadID%>" align="center"><%call WoDig.Is_Hit2(ThreadID,User("UserID"))%></div></td>
          </tr>

413ңں滻£

<tr>
            <td height="3"></td>
          </tr>
          <tr>
            <td height="25" background="Images/digbg2.gif"><div id="aPost_ID<%=ThreadID%>" align="center"><%call WoDig.Is_Hit4(ThreadID,User("UserID"))%></div></td>
          </tr>


25.Ⱥ

showpost.aspļҵ£

<a href="EditPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="༭">༭</a>

351  389ңһ2طҪӡǰ£

<a href="AddPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title=""></a>


26.ҳĿBUG(ǰԺֵ)

wolib/function.aspļҵ£

Temp_Str = Temp_Str & "<span class='postfonthuo'>"& Conn.Execute("SELECT count(Src_ID) FROM Wo_Source WHERE Src_IsOver=False")(0) &"</span>ƪ£"

183,޸Ϊ£

Temp_Str = Temp_Str & "<span class='postfonthuo'>"& Conn.Execute("SELECT count(Src_ID) FROM Wo_Source WHERE Src_IsOver=true")(0) &"</span>ƪ£"


default.aspļҵ£

Rs1.open "SELECT count(Src_ID) as totalsource FROM Wo_Source WHERE Src_IsOver=False",conn,1,3

68У޸Ϊ£

Rs1.open "SELECT count(Src_ID) as totalsource FROM Wo_Source WHERE Src_IsOver=true",conn,1,3

