<!--#include file="conn.asp" -->
<!--#include file="admin.asp" -->
<%Call ling()
Call Head()
Call saycarda("设置注册ID")

lid=request.querystring("lid")
size=request("size")
set rs=server.createobject("adodb.recordset")
sql="select top 1 id from users order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
    	maxid=0
Else
maxid=rs("id")
end If
xid=maxid+1

If lid=1 Then 
   If size>=xid Then 

   conn.execute "insert into users(id) values("&size&")"
   response.write "设置成功,注册ID将从<b>"&size+1&"</b>开始.<br/>"
   Else
   response.write "填写有误,请重新写入...<br/>"
   response.write "<a href='id.asp?sid="&request("sid")&"'>重填</a><br/>"
   End If 
   else
%>
<b>使用说明:</b><br/>
1.如果你想设置从100开始注册,那么在下面的文本框填写99就可以了<br/>
2.此功能只能往上增加,不能递减:例如你一旦设置了从100开始注册,就不能再设置小于100的数值了<br/>
3.本功能会自动查询最后一个注册用户,并在下面输入框中自动填入正确的最小默认值,你填写的数字不能小于框中的默认值<br/>
4.此ID字段的数据类型为"自动编号",不保证所做操作绝对正确.<Br/>
5.ms设置不成功不关程序问题ms比acc还要难只有唯独企业管理才能设置
<br/>----------<br/>
<%if saytk>1 then%>
输入开始ID:<br/> <form method='post' action="id.asp?sid=<%=request("sid")%>&amp;saytk=<%=saytk%>&amp;lid=1">
<%end if%>
<input name="size" value="<%=xid%>" format="*N"/><br/>
<%
if saytk>1 then%>
<p><input type="submit" value="提交"/></p>
			</form>
 <%else
  Response.Write "<anchor>[确定修改]"
 Response.Write "<go href=""id.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;lid=1"" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""size"" value=""$(size)""/>"
 Response.Write "</go></anchor><br/>"
 
 
 %>

<%end if%>
<br/>----------<br/>
<%End If 
rs.close
Set rs=nothing%>
<a href="index.asp?sid=<%=request("sid")%>&amp;saytk=<%=saytk%>">后台管理</a><br/>

<%call headsay()%>
