网站简介 | 招聘信息 | 推荐律师 | 广告服务 | 联系我们 | 网站地图
北京集佳知识产权代理有限公司版权所有
E-mail: webmaster@IP.net.cn
<%
on error resume next
sj=Date()
sj=sj & " " & Hour(Time()) & ":" & Minute(Time())
%>
<%
RowCo=51232
%>
<% Dim idc
%>
<%
If err.number>0 then
on error resume next
else
%>
<%
Conn="Driver={sql server}; database=cntm; dsn=cntm1; server=211.100.15.87; uid=cntm; pwd=A3Ttp8a5"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from count67 order by idc DESC",conn,1,1
%>
<%
movelast
idc=rs("idc")
idc=idc + 1
qx=rs("qx")
dq=rs("dq")
xm=rs("xm")
pwd=rs("pwd")
%>
<%
rs.Close
set rs=nothing
%>
<%
end if
%>
<%
Dim visitors
visitors=idc
Response.Write"0"
Response.Write"0"
Response.Write"0"
Response.Write idc
%>
<% yyy=idc-5 %>
<%
Conn="Driver={sql server}; database=cntm; dsn=cntm1; server=211.100.15.87; uid=cntm; pwd=A3Ttp8a5"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "delete count67 where idc ='"&yyy&"' ",conn,1,1
%>
<%
Conn="Driver={sql server}; database=cntm; dsn=cntm1; server=211.100.15.87; uid=cntm; pwd=A3Ttp8a5"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "count67",Conn,adOpenStatic,adLockOptimistic
rs.AddNew
rs("idc")=idc
rs("xm")="yyy"
rs("qx")=qx
rs("dq")=dq
rs("email")=email
rs("sj")=sj
rs("pwd")=pwd
rs.Update
rs.Close
set rs=nothing
%>
|
如何选择商标？
于泽辉 
张海旭 
申请需知
加强品牌保护意识
www.unitalen.com.cn