Jump to content
xisto Community

dcy1405241470

Members
  • Content Count

    12
  • Joined

  • Last visited

Everything posted by dcy1405241470

  1. helloadminin netrulon.com, i use cpanel, uploading many files like dd.asp, But now i cannot see any files in my account, i dont know if the cpanel can support asp files, in my eyes,cpanel is a best manage website programe, and it wiil replace xpanel.
  2. i dont know if it is important to stop your right-click in IE, as for me i dont use it,everytime when i want to copy or paste somethings , use right-click is very good, but use right-click it will block somethings,just like when someone want to view your site's source code, so i dont use right-click!
  3. yes,that's right.for me,i set up a account, must conside is speed and files type, many sites dont suppor files like dd.class,dd.jar. so i wont to apply although its space was very big, i dont like subdomain like /you, maybe it is hard for me to find a good free site but i will manage to find
  4. My homepage http://dcy.bizhat.com/, Has a look, considers between net friend's exchanges
  5. This is a Asp source program <!--#include file="conn.asp"--> <% function HTMLEncode(fString) fString = replace(fString, ">", ">") fString = replace(fString, "<", "<") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") fString = Replace(fString, CHR(10), "<BR>") HTMLEncode = fString end function function UBBCode(strContent) strContent = HTMLEncode(strContent) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\[img\])(.[^\[]*)(\[\/IMG\])" strContent=re.Replace(strContent,"<IMG SRC=""$2"" border=0>") re.Pattern="(\[sound\])(.[^\[]*)(\[\/sound\])" strContent=re.Replace(strContent,"<bgsound src=""$2"" border=0><img src=images/mid.gif width=16 height=16 alt=插入的音乐>") re.Pattern="(\[b\])(.[^\[]*)(\[\/b\])" strContent=re.Replace(strContent,"<b>$2</b>") re.Pattern="(\[i\])(.[^\[]*)(\[\/i\])" strContent=re.Replace(strContent,"<i>$2</i>") re.Pattern="(\[u\])(.[^\[]*)(\[\/u\])" strContent=re.Replace(strContent,"<u>$2</u>") re.Pattern="(\[url\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>") re.Pattern="(\]*)\])(.[^\[]*)(\[\/URL\])" strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$3</A>") re.Pattern="(\[email\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"<img align=absmiddle src=images/email1.gif><A HREF=""mailto:$2"">$2</A>") re.Pattern="(\]*)\])(.[^\[]*)(\[\/EMAIL\])" strContent= re.Replace(strContent,"<img align=absmiddle src=images/email1.gif><A HREF=""mailto:$2"" TARGET=_blank>$3</A>") re.Pattern="(\[fly\])(.[^\[]*)(\[\/fly\])" strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$2</MARQUEE>") re.Pattern = "^(http://forums.xisto.com/no_longer_exists/;]+)" strContent = re.Replace(strContent,"<img align=absmiddle src=images/aurl.gif><a target=_blank href=$1>$1</a>") re.Pattern = "(http://forums.xisto.com/no_longer_exists/;]+)$" strContent = re.Replace(strContent,"<img align=absmiddle src=images/aurl.gif><a target=_blank href=$1>$1</a>") re.Pattern = "[^>=""](http://forums.xisto.com/no_longer_exists/;]+)" strContent = re.Replace(strContent,"<img align=absmiddle src=images/aurl.gif><a target=_blank href=$1>$1</a>") set re=Nothing UBBCode=strContent end function function findwhere(ip,islog) 'ON ERROR RESUME NEXT if cstr(ip) = "" then ip = Request.ServerVariables ("REMOTE_ADDR") end if ips=Split(ip,".") ip1 = CInt(ips(0)) ip2 = CInt(ips(1)) ip3 = CInt(ips(2)) ip4 = CInt(ips(3)) if ip1=10 or ip1=61 or ip1=202 or ip1=210 then ipfile=cstr(ip1) & ".txt" else ipfile="other.txt" end if Set fobj = Server.CreateObject("Scripting.FileSystemObject") ipfile =server.mappath("ipaddr\" & ipfile) Set ipf = fobj.OpenTextFile(ipfile) minip1=0 maxip4=255 minip2=0 maxip5=255 DO While not ipf.AtEndOfStream ipff=CStr(ipf.Readline) ipat = Split(ipff,".") ipwhere = Split(ipff,"__") if ip1 = Cint(ipat(0)) then if ip2 >= CInt(ipat(1)) and ip2 <= CInt(ipat(4)) and CInt(ipat(1)) => minip1 and CInt(ipat(4)) =< maxip4 and ip3 >= CInt(ipat(2)) and ip3 <= CInt(ipat(5)) and CInt(ipat(2)) => minip2 and CInt(ipat(5)) <= maxip5 then minip1 =CInt(ipat(1)) maxip4 =CInt(ipat(4)) ' if ip3 >= CInt(ipat(2)) and ip3 <= CInt(ipat(5)) and CInt(ipat(2)) => minip2 and CInt(ipat(5)) <= maxip5 then minip2 =CInt(ipat(2)) maxip5 =CInt(ipat(5)) findwhere = ipwhere(2) & ipwhere(3) ' end if end if end if Loop if cstr(islog)="1" then savelog(findwhere) end if ipf.close end function function IsValidEmail(email) dim names, name, i, c 'Check for valid syntax in an email address. IsValidEmail = true names = Split(email, "@") if UBound(names) <> 1 then IsValidEmail = false exit function end if for each name in names if Len(name) <= 0 then IsValidEmail = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric© then IsValidEmail = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValidEmail = false exit function end if next if InStr(names(1), ".") <= 0 then IsValidEmail = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValidEmail = false exit function end if if InStr(email, "..") > 0 then IsValidEmail = false end if end function %><% 'id=Request.QueryString("id") If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then Page = 1 Else Page = CINT(Request.QueryString("Page")) End If set rs=server.createobject("adodb.recordset") sql="select * from admin order by id desc" rs.Open SQL,conn,1,1 mypage=rs("pagesize") if session("admin")=rs("adminuser") and session("pwd")=rs("adminpwd") then adminok="ok" end if webname=rs("webname") web=rs("weburl") master=rs("adminuser") kind=rs("kind") tboerUrl=rs("tboerUrl") tboerWeb=rs("tboerWeb") SoftName=rs("SoftName") Powerby=rs("Powerby") %> <script language="javascript"> function popwin3(path) { window.open(path,"","height=450,width=400,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no"); }</script> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title><%=webname%>留言本</title><script language="javaScript" type="text/javascript" SRC="http://forums.xisto.com/no_longer_exists/; <link rel="stylesheet" type="text/css" href="style/<%=kind%>.css"> </head><body topmargin="0" leftmargin="0" background="images/bg.gif"> <div align="center"><table width="90%" align="center" cellspacing="0" cellpadding="1" border="0"> <tr><td><table width="100%" height=25 cellspacing="0" cellpadding="3" border="0" class="table003"> <tr><td valign="middle" align=left class="jnfont5"> <b>>> </b> [<a href=write.asp>签写留言</a>] | [<a href="<%=web%>"><acronym title="返回主页">返回首页</acronym></a>] | [<a href=mailto:info@aq365.com target=_blank>斑竹信箱</a>] <%if adminok="ok" then%>| [<a href="usermanager.asp?exit=ok"><acronym title="退出管理">退出管理</acronym></a>]<%else%><%end if%> </td><td valign="middle" align=right class="jnfont5"><b><%=webname%></b></td> </tr></table></td></tr></table> <br><table width="90%" board="0" height="25" cellspacing="0" cellpadding="0"><tr><td><table width="100%" border="0" height="25" cellspacing="0" cellpadding="0" bgcolor="#878787"> <tr><td valign="middle" width="25%"><img src='images/img.gif'> <font color=#ffffff>作者信息</font <</td> <td width="2" valign="middle"><font color=#ffffff>|</font></td><td valign="middle" width="76%"><font color=#ffffff>留言内容</fon> <img src='images/xx.gif'></td> </tr></table><% set rs1=server.createobject("adodb.recordset") sql="select * from book order by addtime desc" rs1.Open SQL,conn,1,1 if not (rs1.EOF or rs1.BOF) then rs1.PageSize=mypage Dim TotalPages TotalPages = RS1.PageCount if page>rs1.pagecount then page=rs1.pagecount dim scount scount=INT(Rs1.recordcount) rs1.absolutepage=page StartPageNum=1 do while StartPageNum+10<=Page StartPageNum=StartPageNum+10 Loop EndPageNum=StartPageNum+9 If EndPageNum>RS1.Pagecount then EndPageNum=RS1.Pagecount i=0 do while (not rs1.EOF) and (i<RS1.PageSize) %><table width="100%" cellspacing="1" cellpadding="1" bgcolor="#FFFFFF"> <tr class=table001> <td width="25%" rowspan="3" height="130" class=table003> <center><table class="jnfont7"><div align=center><font color=#ffffff><%=rs1("name")%></font><br><img border="0" src="<%=rs1("face")%>"><br><font color=#ffffff>第<%=rs1("id")%>篇留言</font></div></table> </center></td><td width="76%" valign=top class="table003"><img src='images/gb.gif' width="16" height="16"> 留言主题: <%=rs1("biaoti")%> <%if rs1("email")<>"" then%> <a href=mailto:<%=rs1("email")%> title="给<%=rs1("name")%>发信"><img border=0 src=images/email.gif width="16" height="16">信箱</a><%end if%> <%if rs1("http")<>"" then%><a href=<%=rs1("http")%> target=_blank title="访问<%=rs1("name")%>的主页"><img border=0 src=images/homepage.gif width="16" height="16">主页</a> <%end if%><%if rs1("oicq")<>"" then%><a href="http://forums.xisto.com/no_longer_exists/("oicq")%>" target="_blank" ><img src=images/oicq.gif width="16" height="16" border="0"><%=rs1("oicq")%></a> <%end if%><img src=images/ip.gif alt="<%=rs1("ip")%>" width="15" height="15">来自:<%=findwhere(rs1("ip"),0)%></td></tr> <tr class=table001><td height="*" width="76%" valign=top class="table001"><%if rs1("qqh")=0 then%><TABLE border=0 cellPadding=3 cellSpacing=0 height="100%" width="100%"><TR><TD vAlign=top width="100%"><%=ubbcode(rs1("ly"))%></td></tr></table> <%else%><%if adminok="ok" then%><B>悄悄对你说:</B><table><%=ubbcode(rs1("ly"))%></table><%else%><img align=absmiddle src="images/team.gif"><B>悄悄话哟……</B><br><br><%end if%><%end if%></td></tr><tr><td class=table003 align="center"><img border="0" src="images/posttime.gif"> 发表于:<%=rs1("addtime")%>  <%if rs1("rely")<>"" then%>回复于:<%=rs1("retime")%><%end if%><a href=manage.asp?id=<%=rs1("id")%>><img src=images/re.gif border=0 height=16 width=16 alt="回复或修改回复">回复</a> <a href=manage.asp?id=<%=rs1("id")%>&act=del><img src=images/del.gif border=0 height=16 width=16 alt="删除">删除</a></td></tr><%if rs1("rely")<>"" then%> <tr class="table005"><td width="25%" align="center"><img border="0" src="images/repost.gif"><br>版主回复</td><td width="76%"><table class="jnfont5" cellpadding="10"><%=ubbcode(rs1("rely"))%></table></td></tr><%end if%></table><%i=i+1 rs1.MoveNext loop %></td></tr></table><br><table width="90%" cellspacing="1" cellpadding="3"><tr bgcolor=#878787><form method="GET" action="search.asp"> <td align=center width="40%"> <font color=#ffffff>关键字</font>: <input type="text" name="sou" size=15 class="input2" onfocus=this.select() onmouseover=this.focus()><input name="B1" type="submit" value="搜索" class="input2"> </td></form><td><table width="100%" border="0" cellpadding="0" cellspacing="0"><tr><td align=center width="87%"><font color=#ffffff> 共<b><%=scount%></b>条留言 [ <% if StartPageNum> 1 then %> <a href="guestbook.asp?Page=<%=StartPageNum-1%>"> << </a> <%end if%> <% For I=StartPageNum to EndPageNum if I<>Page then %> <a href="guestbook.asp?Page=<%=I%>"><%=I%></a> <% else %> <b><font color=#ff0000><%=I%></font></b><% end if %><% Next %><% if EndPageNum<RS1.Pagecount then %> <a href="guestbook.asp?Page=<%=EndPageNum+1%>">>></a> <%end if%> ]</font></td><td align=right width="13%"><a href="javascript:scroll(0,0)"><img src="images/goup.gif" width="15" height="15" border="0" alt="顶部"><font color=#ffffff>顶端</font></a></td></tr></table> </td></tr></table><p align="left"><%else%></p><table align=center ><td class="jnfont3">对不起,还没有记录</td></table> <%end if%></div><div align="center"><table border="0" width="650" cellpadding="0" height="30"><tr><td width="100%" class="jnfont5" height="25"> <p align="center">本留言本言论纯属发表者个人意见,与 <a href="<%=web%>"><b><%=webname%></b></a> 立场无关 <br><%=softname%> 留言本版权所有:<a href="<%=tboerurl%>"><b><%=tboerweb%></b></a></td></tr></table></div><%rs1.close set rs1=nothing rs.close set rs=nothing call endConnection()%></body></html> If puts it on the web, saw to is only this sourceprogram, which friend can tell me how to transform it is the Html language
  6. try to use Advanced GIF Animator V2.14 it also good download at http://forums.xisto.com/no_longer_exists/
  7. Hmmm! i am agree with you, "@"is only a sign, Not will it translated in a different language,but you can know it means just like 1+1=2,everyone understand it
  8. Not called "circle A" it just call "at", i am a Chinese and i know it,i offen use @ but i doesnt know what is it means
  9. Is anyone know what does SSL means? If you know, Please tell me, I want know.Thank you
  10. In the netrulon.com. I have applied a accout, I used cPanel and it very good.I have never see such a good website management program. I like it!
  11. I am a newer. Which Friend can tell me how to use SSL manage
×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.