利用ASP來查看LINKTALK聊天記錄-帶密碼驗證（獨立主機IIS適用)

chtcracker · 发表于 2009-11-30 15:24:07

本帖最后由 chtcracker 于 2009-11-30 15:29 编辑

環境準備看我前面發過的一個帖子
https://discuz.dismall.com/thread-1498314-1-1.html

<%@Codepage=65001%>
<%
id=request("id")
pwd=request("pwd")
if id = "admin" and pwd = "123456" then
session("admin")="admin"
end if
if session("admin")<>"admin" then
response.write "<form id=""form1"" name=""form1"" method=""post"">"&vbcrlf&_
" <label>用戶名:"&vbcrlf&_
"<input type=""text"" name=""id"" />"&vbcrlf&_
"</label>"&vbcrlf&_
"<p>"&vbcrlf&_
" <label>密碼:"&vbcrlf&_
" <input type=""password"" name=""pwd"" />"&vbcrlf&_
"</label>"&vbcrlf&_
"</p><input name="""" type=""submit"" />"&vbcrlf&_
"</form>"
response.end
end if
strconnection="driver={mysql odbc 5.1 driver};database=linktalk聊天記錄所在數據庫名;server=localhost;uid=用戶名;password=密碼;Set Names 'utf-8'"
set conn = server.createobject("adodb.connection")
conn.open strconnection
strconnection1="driver={mysql odbc 5.1 driver};database=ucenter所在數據庫名;server=localhost;uid=用戶名;password=密碼;Set Names 'utf-8'"
set conn1 = server.createobject("adodb.connection")
conn1.open strconnection1
conn.CursorLocation=3
conn1.CursorLocation=3
strquery = "select * from lt_messages order by id desc"
set rs = conn.execute(strquery)
rs.PageSize=50
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
if rs.EOF then
response.write "沒有任何數據"
response.end
end if
rs.AbsolutePage=page
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
<!--
.STYLE1 {
color: #0000FF;
font-weight: bold;
font-size: medium;
}
-->
</style>
<p align="center" class="STYLE1">LINKTALK最新聊天記錄</p>
<table align="center">
<tr>
<td><b>發信人</b></td><td><b>收信人</b></td><td><b>內容</b></td><td><b>時間</b></td><td><b>狀態</b></td>
</tr>
<%for i=1 to rs.PageSize%>
<%if rs.EOF then
exit for
end if
strquery1 = "select * from uc_members where uid="& rs("from")
set rs1 = conn1.execute(strquery1)
strquery2 = "select * from uc_members where uid="& rs("to")
set rs2 = conn1.execute(strquery2)
%>
<tr>
<td><%=rs1("username")%></td>
<td><%=rs2("username")%></td>
<td><%=rs("content")%></td>
<td><%=rs("time")%></td>
<td><%if rs("offline")=0 then%>已讀<%else%>未讀<%end if%></td>
</tr>
<%
rs.movenext
next
%>
<form name="pageform" method="get" action="checkt.asp" onsubmit="if(document.pageform.page.value=='') document.pageform.page.focus();return(document.pageform.page.value!='');">
<tr>
<td colspan="5" align="right">
<p><%if page=1 and not page=pagecount then%>
<div align="right">第<%=page%>頁  <%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a> <%next%><a href="?page=<%=page+1%>">下一頁</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="right">第<%=page%>頁  <%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a> <%next%><a href="?page=<%=page-1%>">上一頁</a>  </div>
<%elseif page<1 then%><div class="font" align="right"><font color=red>沒有任何記錄！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>沒有任何記錄！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="right">第<%=page%>頁  <%for i=1 to pagecount%>
<a href="?page=<%=i%>"><%=i%></a> <%next%><a href="?page=<%=page-1%>">上一頁</a>
<a href="?page=<%=page+1%>">下一頁</a>  </div>
<%end if%>
Go
<input name="page" type="text" id="pageno" size="1">
Page
<input type="submit" name="Submit" value="go">
</p>
<p>
<label></label>
</td>
</tr>
</form>
</table>
<%
rs.close
rs1.close
rs2.close
conn.close
conn1.close
set conn = nothing
set conn1 = nothing
set rsdata = nothing
%>

复制代码

修改admin和123456為你想要的即可登錄
我實在太窮了，哪位大俠給點金幣吧~
上截圖

xiaolooo · 发表于 2009-12-1 13:02:08

沙发。。。。。。。。。字数补丁

		自动登录	找回密码
密码			立即注册