台灣最大程式設計社群網站
線上人數
1636
 
會員總數:246494
討論主題:190002
歡迎您免費加入會員
討論區列表 >> Java Script/ Node.js >> 可否幫忙修改成Jscript
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
可否幫忙修改成Jscript
價值 : 0 QP  點閱數:1147 回應數:0
樓主

朋朋
初學者
22 8
6 7
發送站內信

<%
If Session("Member") <> "Member"  Then
Response.redirect("/login/login.asp")
Response.End
End If
    Rid = cint(request("Rid"))
           Set Conn = Server.CreateObject("ADODB.Connection")
    DBPath = Server.MapPath("/login/manager/db/sciencedb.mdb")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath
        Set rs = Server.CreateObject("ADODB.Recordset")
        Sql = "select * from record where Rid = " & Rid
    rs.open sql, conn, 3, 2
%>
<table width="760" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="719"><font size="2">你的IP是<%=rs("Rip")%>,學校是<%=rs("Rname")%> </font></td>
    <td width="27"><div align="right"><font size="2"> 
        <!--#include virtual="logoutin.asp" -->
        </font></div></td>
  </tr>
</table>

本篇文章發表於2003-08-05 13:21
目前尚無任何回覆
   

回覆
如要回應,請先登入.