前段时间写的一个投票程序
整合在动网论坛里的,实现对每个回复进行投票,代码写的很烂,见笑了
<link href="../style.css" rel="stylesheet" type="text/css"> <!--＃i nclude file="conn1.asp"-->
<%
id=trim(request.querystring("userid")) username=trim(request.querystring("username")) Caption=trim(request.querystring("caption"))
come_ip = Request.Se...
一个项目中用到的数据同步实现
老板要求对每个代理商实现数据初始化,即把公司的报价数据全部导入到代理商的数据中.本来有更好的办法,不过自己最近变懒了,呵呵
chkid1.asp
<!--＃i nclude file="../inc/conn.asp"--> <!--＃i nclude file="../inc/CheckLogined.asp" -->
<% pid=trim(request.querystring("id")) id="5" Public MyArry() Public MyArry1() Public MyArry2() Public MyArry3() Public M...
用asp实现同一ID号不同数据的批量更新
<%dim nid,moneyfor i=1 to request.form("aid").countnid=replace(request.form("aid")(i),"'","")money=replace(request.form("a1")(i),"'","")conn.execute("update class3 set h_money='"&money&"' where 编号="&nid)nextconn.closeset conn=nothingresponse.write "<script language=j***ascript>alert('...
一段生成静态页的代码
<!--＃i nclude file="inc/conn.asp"--><html><head><TITLE>分页测试</TITLE><LINK href="/blog/inc/style.css" type=text/css rel=stylesheet></head>
<%strHead=strHead&"<html>"strHead=strHead&"<head>"strHead=strHead&"<TITLE>分页测试</TITLE>"strHead=strHead&"<LINK href="/blog/"style.css"" type=tex...
input获取当前时间
<style type="text/css">body { background-color: transparent; margin:0px;}.m_frameborder { border-left: 1px inset #D4D0C8; border-top: 1px inset #D4D0C8; border-right: 1px inset #FFFFFF; border-bottom: 1px inset #FFFFFF; width: 70px; height: 19px; background-color: transparent; overflow: hidden; t...
ASP二级联动菜单
js部分
<script language = "JavaScript"> sall=new Array();<%Dim ii=0set rs=server.createobject("adodb.recordset")sql="select * from t_smallclass"rs.open sql,conn,1,1do while not rs.eof%>sall[<%=i%>]=new Array("<%=rs("classname")%>","<%=rs("c_id")%>","<%=rs("id")%>");<%i=i+1rs.movenextlooprs.closese...
控制submit可见
<input type="radio" name="r1" onclick="s1.disabled=!checked"><input type="submit" name="s1" disabled>
文章归档
最新评论