countip.asp

学生成绩管理系统 :功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 后台

<!-- #include file="inc/conn1.asp"-->
<%
Response.Expires=0
application.lock
url1=request.servervariables("server_name")
url2=request.servervariables("url")
url="http://"&url1&url2
urlimg=replace(url,"index.asp","1")
set rs=server.createobject("adodb.recordset")
sql="select * from countip where ID=1"
rs.open sql,newconn,3,2

if request.cookies("dscount")=empty then
response.cookies("dscount")="yes"
rs("count")=rs("count")+1
rs.update
end if
ccount=rs("count")
rs.close
set rs=nothing
newconn.close
set newconn=nothing
application.unlock
g=cstr(ccount)
c=len(g)
countlong=5
if int(c)<int(countlong) then
for i=1 to int(countlong)-int(c)
   gifip = gifip & ""& 0 & ""

next
end if
for i=1 to c
   gifip = gifip & ""& mid(g,i,1) & ""
next
%>
<%=gifip%>