|
|
|
| 个人简介 | 运动保健 | 运动训练 | 体育教学 | 体育法规 | 裁判规则 | 明星档案 | 理论园地 |
<% Dim UserName,Password,Conn UserName="pe" Password="pe%212#st" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={SQL Server};Server=202.96.144.212;Uid=" & UserName & ";Pwd=" & Password & ";database=" & UserName Conn.Execute("CREATE TABLE counter(count int not null)" Conn.Close Set Conn=Nothing Response.Write "安装成功！" %> <% Dim UserName,Password,Conn,RS,Count,SQL,TheValue TheValue=0 UserName="pe" Password="pe%212#pe" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={SQL Server};Server=202.96.144.212;Uid=" & UserName & ";Pwd=" & Password & ";database=" & UserName Set RS=Server.CreateObject("ADODB.Recordset") Set RS=Conn.Execute("SELECT * FROM counter") If RS.EOF then Conn.Execute "INSERT INTO counter VALUES(0)" Else TheValue=RS("count").Value End If RS.Close Set RS=Nothing Conn.Execute "UPDATE counter SET count=count+1" Set Conn=Nothing Response.Write "document.write('你是第：" & TheValue+1 & "位访问者');" %> 请点击听单音乐
版权所有：林延轩.
81528288
留言板
stlyx@263.net
申明：为了让更多的人，特别是体育教师了解更多关于学校体育及其保健方面的内容和方法。这里的部分材料取自报刊与因特网，一切权利归作者所有，如果侵犯了你的版权和利益，希望你来信说明，我将尽快更正并表示道歉!